Visual Basic - Problemas con Busquedas

hola tengo un problema al querer buscar un registro en la BD estoy usando access y conecto con un ADODC pero cuando paso el parametro del valor a buscar resulta que nunca lo encuetra, les paso el codigo para ver si alguien me puede ayudar. Gracias

Private Sub BuscarEmp()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿Que Emprendedor Deseas Buscar? Introduce Su Primer Apellido ")
If Buscado = "" Then Exit Sub
Criterio = "ApellidoP Like ' * " & Buscado & " * ' "
buscarElPrimero Criterio
End Sub

Private Sub buscarElPrimero(Criterio As String)
Emp.Recordset.MoveNext
If Not Emp.Recordset.EOF Then
Emp.Recordset.Find Criterio
Editar.Enabled = True
Eliminar.Enabled = True
End If
If Emp.Recordset.EOF Then
Emp.Recordset.Find Criterio
Editar.Enabled = True
Eliminar.Enabled = True
If Emp.Recordset.EOF Then
Emp.Recordset.MoveLast
MsgBox ("No se encontro el nombre del Emprendedor")
End If
End If
End Sub

A ver si esto te sirve.

Private Sub buscarElPrimero(Criterio As String)
' Para moverte al Primer Registro en el Recordset
Emp.Recordset.MoveFirst
'Si quieres Recorrer el Recordset entonces usas un For , o un While o un Do While

------------------------------------------------------------------------------
'Tambien primero puedes revisar si existen registros Asi: Lo puedes poner en una funcion

If ((Emp.Recorset.BOF = True) And (Emp.Recorset.EOF = True)) then
'EL Recordset esta vacio
Else
Do While Not Emp.Recorset.EOF
'Lo que quieras validar
If Emp.Recordset![Nombre del Campo] = Criterio then
'Si lo encuentra entonces haces algo y te sales del Loop
Else
'Algunas otras cosas
End If
Emp.Recorset.MoveNext
Loop
End If
-------------------------------------------------------------------
Emp.Recordset.MoveNext
If Not Emp.Recordset.EOF Then
Emp.Recordset.Find Criterio
Editar.Enabled = True
Eliminar.Enabled = True
End If
If Emp.Recordset.EOF Then
Emp.Recordset.Find Criterio
Editar.Enabled = True
Eliminar.Enabled = True
If Emp.Recordset.EOF Then
Emp.Recordset.MoveLast
MsgBox ("No se encontro el nombre del Emprendedor")
End If
End If
End Sub

Hola creo q debes de abrir tu RecordSet como Estatico osea cuadno pones

Rs.open "Clientes",DC,adOpenStatic,adLockOptimistic .. bueno esa es mi Idea no c demasia de Programacion aun soy un novatillo pero weno ..