hola aca te doy un codigo que yo utilizo espero te sirva cualquier duda
[email protected]
Private Sub Text1_Change()
If Text1 <> "" Then
Adodc1.Recordset.Filter = "Código like '*" + Text1 + "*'"
Else
Adodc1.Recordset.Filter = ""
Set DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Recordset.MoveFirst
End If
End Sub
en este caso yo filtrama lo correspondiendo a mi tabla con titulo código, si tu quieres filtrar el nombre y tu tambla en la base de datos se llama nombre pues tendras que cambiarlo en el codigo, espero haber sido claro si nececitas un programa como ejemplo avisame, saludos