Buscar resultados en un dataGrid mientras se digita (Ado)

[buxforever]

Realizalo de esta manera... unicamente adaptas tu ruta de la base de datos

Código vb:

'Ruta a la base de datos
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=C:\Base Principal.MDB;Persist Security Info=False"
                              
    With Adodc1
        ''Establecer el tipo de Comando ( Consulta SQL )
        .CommandType = adCmdText
        'Seleccione de la base de datos la tabla (Registro)
        .RecordSource = "Select * From Registro"
        'Realize un (Refresh) en el control
        .Refresh
         DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
        'Coloque el origen del (Datagrid1) = Al origen del (Recordset)
        Set DataGrid1.DataSource = Adodc1.Recordset
      
    End With