Consulta help?

OBS.: ALTEREI O CODIGO POIS, O AMIGO ROBERTO ME MOSTROU UM ERRO NA DECLARAÇÃO DE MINHAS VARIAVEIS.

Veja se te ajuda:

Private Sub PreencherGradeClientes()
    Dim cSql As String
    Dim oSql As Recordset
    Dim nLinhas As Integer, nPos As Integer
    'Adiciona texto nas respectivas linha do Grid

    cSql = "SELECT * FROM TB_CLIENTES WHERE " & strNomeColuna & "  LIKE '" & TxtBusca.Text & "*" & "'"
    Set oSql = Banco.OpenRecordset(cSql, dbOpenDynaset)
    If oSql.RecordCount = 0 Then
        MsgBox ("Nenhum resultado encontrado para o filtro!"), vbExclamation
        GradeClientes.Rows = 1
        Exit Sub
    Else
         GradeClientes.Rows = 1
        Do While Not oSql.EOF
            With GradeClientes
                nLinhas = .Rows + 1
                .Rows = nLinhas
                nPos = .Rows - 1
                .Row = nPos
                .Col = 0                                   ' INSERE A COLUNA ID_CLIENTE
                .Text = oSql![ID_CLIENTE]
                .Col = 1
                .Text = oSql![NOME]
                .Col = 2
                .Text = IIf(IsNull(oSql![DATA_NASCIMENTO]), "", Format(oSql![DATA_NASCIMENTO], "dd/mm/yyyy"))
                .Refresh
            End With
            oSql.MoveNext
        Loop
    End If
End Sub

Adapte o códifgo as suas necessidades. Chame o procedimento no evento change do text.

sem mais,