Ayuda por favor

Deseo buscar un nombre mediante este código, ingreso los nombres y los encuentra pero cuando ingreso un nombre que no existe me mada el siguiente error:
Error 3021
El valor Bof o EOF es true, o el actual registro se elimino, la operación solicitada requiere un registro actual.
El código es el siguiente:
Dim buscando As String, Criterio As String
buscando = InputBox("¿Que nombre quieres buscar?")
If buscando = "" Then Exit Sub
Criterio = "Nombre Like '*" & buscando & "*'"
'Buscar desde el siguiente registro a la posoción actual
Adodc1.Recordset.MoveFirst
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
TXTNOMBRE.Text = Adodc1.Recordset.Fields(1)
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
TXTNOMBRE.Text = Adodc1.Recordset.Fields(1)
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End If