Visual Basic - como buscar en un dbgrid

hola, mirad, tengo un dbgrid conectado a una base de datos acces 97 y necesito que al presionar un boton este me busque en el dbgrid lo que tengo escrito en uno de los textbox.
si alguien me puede pasar algun codigo?

de todas formas ya le tenia puesto un codigo pero me da un error:
"operacion no valida para este tipo de objeto"

codigo:
data1.recordset.findnext "codigo" & text1.text & ""

e probado con unos cuantos codigos pero siempre me sale el mismo error

muchas gracias.

data1.recordset.findnext "codigo Like '" & text1.text & "'" (Doble simple Doble)

lo siento pero no me vale. Me vuelve a salir el mismo error de antes

Si el campo "codigo" es texto:
data1.recordset.find "codigo='" & text1.text & "'"
si es numérico:
data1.recordset.find "codigo=" & text1.text

perdon, creo que no lo mencione antes y no se si tendra algo que ver, pero el control que tengo es un data bound grid 5.0.
el campo es de texto.
al poner el codigo
data1.recordset.find "codigo='" & text1.text & "'"
me sigue saliendo el mismo error.

Private Sub Text15_Change()
Filt
End Sub

Public Sub Filt()
Dim R As String
On Error GoTo RutinaDeError
Data1.RecordSource = "SELECT * FROM tabla1 WHERE campo like '*" & Text15.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Exit Sub
RutinaDeError:
R = MsgBox(Error, vbOKOnly, "Se ha producido un error:")
End Sub