SoloCodigo

hola a todos. necesito ayuda.
he creado un formulario y he introducido un boton control ado ,he enlazado la base de datos y todos los campos ,pero solo me falla el boton de busqueda de un registro.os paso el codigo y a ver si me podeis decir que falla.


Private Sub cmdBuscar_Click()
Dim buscado As String
Dim criterio As String
Dim cadena As String
buscado = InputBox("¿Que Codigo desea buscar?")
criterio = " id_operacion like '*" & buscado & "*'"

Adodc2.Recordset.Find criterio

If Adodc2.Recordset.EOF Then
cadena = " El registro " & UCase(buscado) & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Adodc2.Recordset.MoveLast
End If
End Sub


in saludo

Cuando usar LIKE el comodin de busqueda no es *, es % de tal manera que tu sentencia debe quedar algo asi:

Solo es cosa de probar con las comillas, talves estoy comentiendo un error en las comillas y no tengo donde probarlo en este momento.

Pero no olvides solo debes de cambiar el comodin.