Buscar resultados en un dataGrid mientras se digita (Ado)

[Lostan]

bux

ese ejemplo es justo lo que buscaba, muchas gracias

pero ahora tengo un solo problema
el ejemplo tiene la coneccion en declaraciones, las cuales llama con el evento Load Form,

Código:

' 
Cadena de conexión
Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                             "Data Source=C:\Archivos de programa" & _
                                             "\Microsoft Visual Studio\VB98\" & _
                                             "NWIND.MDB;Persist Security Info=False"


Private Const SQL As String = "Select * From Proveedores"
Private Const CAMPO_A_FILTRAR As String = "NombreContacto"

como hago para que este codigo se paresca a esto???

Código:

Private Sub Form_Load()
    ' Indicar la base de datos a usar
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\bd1.mdb"
    
    Adodc1.CursorType = adOpenDynamic
    ' Conectarlo a la tabla de prueba
    Adodc1.RecordSource = "Tabla1"
    ' Refresh es necesario para que se cargue la tabla
    Adodc1.Refresh
   
End Sub