Buscador

Hola! Quisiera que por favor me ayudaras, estoy haciendo un buscador en una base de datos pero me marca un error he aquí el código:
Private Sub Buscar_Click()
Dim Buscando As String, Criterio As String
Buscando = InputBox("Escribe el nombre del producto que quieres buscar:")
If Buscando = "" Then Exit Sub
Criterio = "Nombre like'*" & Buscando & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find (Criterio)
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese producto")
End If
End If
End Sub
¿Cuál puede ser el error? O como puedo programar un buscador en una base de datos.
De antemano Gracias