busqueda con datagrid

[lebiatan123]

hola este codigo solo sirve si usas el adoc solo tienes que conertar el datagrid con el ado y el el texto que vas a usar para filtrara colocas esto .. donde esta la palabra codigo like vas a poner el campo que tienes en la base de datos
ejemplo si en la BDD se llema cedula vas a poner cedula like
Private Sub Text1_Change()
If Text1 <> "" Then
Adodc1.Recordset.Filter = "codigo like '*" + Text1 + "*'"
Else
Adodc1.Recordset.Filter = ""
Set DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Recordset.MoveFirst
End If
End Sub

ami me funciona perfec espero que te sirva a ti tambien