Visual Basic - Como traer datos a un DataGrid a partir de un TextBox

Sub llenagridX(Msf As MSFlexGrid)

On Error GoTo etterro

Cont = 0

Msf.Clear

Msf.Cols = 2

Msf.Rows = 2

'FileName = App.Path & "\Reporte_" & Format(Time, "HHMMSS") & ".xls"

'MsgBox SQL

Rsio.Open SQL, conexion 'Aqui el nombre de la conexion a tu base

'****si no hay resultados ********

    If Rsio.EOF = True And Rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"

    Rsio.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   'Rs.Open SQL, conexion

   Msf.Cols = Rsio.Fields.Count '+ 1

   Msf.Clear

   j = 0

   While j < Val(Msf.Cols)

    Msf.TextMatrix(0, j) = Rsio.Fields(j).Name 'da el nombre del select

'    datafile = datafile & Rsio.Fields(j).Name & vbTab

    Msf.ColWidth(j) = 2000 ' para dar un correcto ancho

     j = j + 1

   Wend

'            Open FileName For Append As 9

'                    Print #9, datafile

'                    datafile = ""

'            Close 9

    i = 1

    k = 0

    While Not Rsio.EOF

        i = i + 1

        Msf.Rows = i

        k = 0

        While k < j

            Msf.TextMatrix(i - 1, k) = "" & Rsio(k)

'            datafile = datafile & Msf.TextMatrix(i - 1, k) & vbTab

            k = k + 1

        Wend

'        datafile = datafile & vbCr

        Rsio.MoveNext 'aumenta el contador

    Wend

       Rsio.Close

'            Open FileName For Append As 9

'                    Print #9, datafile

'                    datafile = ""

'            Close 9

Exit Sub

etterro:

MsgBox Err.Description

End Sub

Dim RS as recordset 'Si abriste un proyecto de datos ya se cargaron las referencias necesarias no necesitas especificar adodb.recordset

dim CNN as ADODB.conection' Si se especifica aquí para evitarnos las referencias de DAO

DIM TEMP as string 'Solo por cuestiones de comodidad

'en el evento from_Load debes crear el Objeto

set  RS = new Recordset

set CNN = new ADOB.conection

'Creas la cadena de conexion de la database, la abres y dejas todo así

'en el evento KEYUP del text1 escribes esto

private sub DATOS_MOSTRAR(SQL as string) 'Necesitamos un parametro de texto

if rs.state <> 0 then 'Si esta cargado el recordset muestra un error por eso evitamos el error cerrandolo

   rs.close

end if

'Si se trata de un texto  tu declaración siempre funcionará pero no asi con los texto deverias evaluar por si acaso

TEMP = "SELECT Descripcion,Costo FROM Almacen WHERE codigo = " & val(text1.text) ' el parametro de la sub

rs.open temp, sql, adOpenDynamic, adLockOptimistic    'Estos parametros son necesarios para los DATAGRID

set  DB1. Datasource = RS

end sub