Buscar resultados en un dataGrid mientras se digita (Ado)

[buxforever]

Prueba con esto...

Código vb:

With Adodc1
         If Text1 <> "" Then
            'Fltrar por el campo especificado en Combo1
            .Recordset.Filter = CAMPO1 & " LIKE '*" + Text1 + "*'"
            'Enlazar el Grid con el recordset
            Set DataGrid1.DataSource = Adodc1.Recordset
        Else
            'Limpiar el Filtro
            .Recordset.Filter = ""
        End If
        'Refrescar el control ADO
        .Refresh
        ''Habilitar el (Timer1)
        Timer1.Enabled = True
 

Nota: CAMPO1 es el campo que deseas filtrar y lo declaras de esta manera

Código vb:

Private Const CAMPO1 As String = "[No Control]"