COMO FACO PARA CARREGAR UM MSFLEXGRID USANDO ADO

Citação:

:
eu tenho um flexgrid com 8 colunas ex.

codigo, descrição, Est.Min e etc...

e tenho um txtbox,

oq eu queria fazer é o seguinte: digitar nesse campo e trazer os dados do banco de dados no flexgrid

ex. arroz, ai trazer o codigo, o tipo, o nome e etc...

estou usando a referencia ado 2.8 object library

Public Sub PreencheGrid()
Dim Row As Integer
Dim ERPTemp1 As ADODB.Recordset

Set ERPTemp1 = New ADODB.Recordset
    With ERPTemp1
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .LockType = adLockPessimistic
        .Source = [Ô]Select * From [sua_tabela][Ô]
        .ActiveConnection = [Sua_Conexão]
        .Open
        
        If .BOF = True And .EOF = True Then Exit Sub
            Grid.Rows = .RecordCount + 1
            Do Until .EOF = True
                Row = Row + 1
                Grid.TextMatrix(Row, 1) = ![Nome_do_Campo1_da_tabela]
                Grid.TextMatrix(Row, 2) = ![Nome_do_Campo2_da_tabela]
                Grid.TextMatrix(Row, 3) = ![Nome_do_Campo3_da_tabela]
                Grid.TextMatrix(Row, 4) = ![Nome_do_Campo4_da_tabela]
                Grid.TextMatrix(Row, 5) = ![Nome_do_Campo5_da_tabela]
                Grid.TextMatrix(Row, 6) = ![Nome_do_Campo6_da_tabela]
                Grid.TextMatrix(Row, 7) = ![Nome_do_Campo7_da_tabela]
                Grid.TextMatrix(Row, 8) = ![Nome_do_Campo8_da_tabela]
            .MoveNext
        Loop
    End With
ERPTemp1.Close
End Sub

Private Sub Form_Activate()

    Call PreencheGrid

End Sub

[Ô]Select * From [Sua_Tabela] WHERE [Campo_Nome] Like [ô][Ô] & text1.Text & [Ô]*[ô][Ô] [ô] Se sua tabela for o access usar *, se For MySQL usar %