error 424 en tiempo de ejecución visual basic

[makiavelo183]

Estoy realizando una aplicación en visual basic 6.0, en un formulario tengo unos textbox configurados y listos para mostrar datos de una base de datos de access por medio de un adodc, esta parte esta completamente funcional. el caso es que tengo un boton "buscar", el cual la idea es que pueda abrir un dialogo para buscar en la base datos y mostar los datos en la misma pantalla que les mencione.
La verdad soy novato y no se hacerlo, lo unico que consegui es un par de codigos para este proposito pero no se como adaptarlos. si alguien me puede ayudar se le agradece.

aca estan los codigos

CODIGO 1



Private Sub Command1_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("Producto a Buscar", "Altas")
If Not DataAltas.Recordset.EOF Then

Criterio = "nombre_producto like'*" & Buscado & "*'"

DataAltas.Recordset.MoveNext
DataAltas.Recordset.FindFirst Criterio
If DataAltas.Recordset.NoMatch Then
DataAltas.Recordset.MoveLast
MsgBox ("No encontre ese Producto")
End If
End If

End Sub


CODIGO 2

Private Sub buscar_Click()
Dim kazakanjes As Long
kazakanjes = Val(InputBox("Introduce la Cedula que buscas")
Data1.Recordset.FindFirst "id " & kazakanjes
If Data1.Recordset.NoMatch Then
MsgBox "La Cedula numero: " & kazakanjes & "No esta en la base de datos", vbInformation, "Kazakanjes Channel"
End If
End Sub

[lokoman]

Hola!
Antes que nada, debes saber por cual campo vas a buscar los datos que deseas, por ejemplo por DOCUMENTO.
Luego en el boton BUSCAR:

Código vb:

ADODC.RECORDSET.MOVEFIRST
DO WHILE ADODC.RECORDSET.EOF=FALSE
   IF ADODC.RECORDSET.FIELD("DOCUMENTO").VALUE= TRIM(TXTDOCUMENTO.TEXT) THEN 'TXTDOCUMENTO.TEXT es un textbox en donde pones el numero de documento
      EXIT SUB
   ELSE
      ADODC.RECORDSET.MOVENEXT
   ENDIF
LOOP
 

Como ya tienes conectado el ado data control con los textboxes, cuando salga de la rutina se va a quedar el registro que buscas