En el Initialize del Form1:
Cita: Set rs = New ADODB.Recordset
rs.Open "DataBase", cn, adOpenDynamic, adLockOptimistic
En el evento:
Cita: Rs.Find "cliente =" & "'" & Text1.Text & "'"
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
Rs.MoveFirst
Rs.Update
Si no podes usar Filter:
Cita: Rs.Filter = "cliente = " & "'" & Text1.Text & "'"
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
Rs.MoveFirst
Rs.Update
Fijate, lo hice en el aire, si no funciona así buscale la vuelta hasta que ande.