Visual Basic - COMO BUSCO EN ACCESS CON UN DATA CONTROL UN DATO

HOLA
COMO BUSCO CON EL DATA CONTROL UN DATO THE DATABASE TENGO ESTE CODIGO Y ME DA UN ERROR 3251 OPERATION NOT SUPPORTED BY THIS OBJECT
DESDE YA GRACIAS POR SU AYUDA
DANNY
Private Sub Buscar()
Dim nReg As Long
nReg = Val(Text3)
' Buscar la primera coincidencia en el recordset del Data1
'
If Option1.Value Then
Data1.Recordset.FindFirst "ProductID Like '" & Text3.Text & "'"
End If
Data1.Recordset.FindFirst "ProductID Like '" & Text3.Text & "'"


End Sub

Hola.

Si el tipo de campo donde haces la búsqueda es Long tienes que poner

Data1.Recordset.FindFirst "ProductID = " & Text3.Text 'sin comilla simple

Esto te buscará el dato exacto al Text3 . Si aún así quieres que busque un dato semejante con el Like tiene que ser :

Data1.Recordset.FindFirst "ProductID Like '" & Text3.Text & "*'"

Si el campo de la búsqueda es Texto para buscar un dato exacto sería

Data1.Recordset.FindFirst "ProductID = '" & Text3.Text & "'"

y así con el Like

Data1.Recordset.FindFirst "ProductID Like '" & Text3.Text & "*'"

Espero que te sirva
Saludos