necesito ayuda

[azaherfe]

Private Sub BUSCAR_Click()
Dim buscado As String, CRITERIO As String

buscado = InputBox("¿Qué nombre quieres buscar?")
If buscado = "" Then Exit Sub
CRITERIO = "Nombre Like '*" & buscado & "*'"

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 nombre")
End If
End If
HabilitarCajas

End sub
este es el codigo que tengo, pero al sustituir el nombre por numero me da error, gracias
Saludos