muchisimas gracias fue una respuesta de 10 puntos de 1o posibles, maestro felicitaciones por que acerto en buena hora con la respuesta a mi pregunta, gracias, me quedo el codigo de la siguiente forma:
en general
Dim conn As New ADODB.Connection ' declaramos la conexion
Dim Rs As New ADODB.Recordset 'declaramos el recordset
en el evento onclick del boton
Private Sub Command5_Click()
Set Rs = New ADODB.Recordset
Rs.Open "select * from cliente", conn, dbOpenDynaset, adLockOptimistic ' abrimos el recordset
Rs.Filter = "razon = " & "'" & Text1.Text & "'"
If (Rs.EOF = False) Then
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
Rs.MoveFirst
Rs.Update
y en el evento onload del formulario
Private Sub Form_Load()
conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\clientes.mdb" & ";Uid=Admin;Pwd=;"
conn.CursorLocation = adUseClient
conn.Open
End Sub