Visual Basic - SE ME RESISTE!!!!

Buenas a tod@s! tengo un problema, a ver si algun alma caritativa me ayuda a resolverlo :)
El caso es q tengo un data combo enlazado a un adodc y me saca los apellidos q hay en una base de datos. Cuando eliges en la lista desplegable del datacombo un apellido hace la busqueda interna y deberia encontrar el registro en cuestion donde esta el apellido elegido. El caso es q me da un error en una linea y no se muy bien porq es :(:(:(:(
Ahi os va el codigo para ver q podria ser:

Private Sub DataCombo1_Change()
Dim CadenaBuscada As String
Dim Criterio As String
Criterio = "Apellidos Like '*" & DataCombo1.Text & "*'"

Data1.Recordset.FindFirst Criterio
(EN ESTA LINEA DEL "Data1.Recordset.FindFirst Criterio" ME DA EL ERROR. ME DICE: "El objeto no admite esta propiedad o método". SÉ Q ES ESTA LINEA PORQ LO HE COMPROBADO MEDIANTE PASO A PASO CON EL F8.)

If Data1.Recordset.NoMatch = True Then
R = MsgBox("No existe, si usted lo desea agregar deberá darle de alta desde el botón Nuevo", vbOKOnly, "¡¡¡Kawendieeeeez!!!")
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveLast
End If
End If
End Sub

Muchas gracias por vuestro tiempo :D. Un saludoooooo

Bueno, primero decirte que el FindFirst no vale para el Adodc, debes de usar el metodo Find para ello, ya que estas usando adodc no el Jet 3.5 de antiguamente.

Espero que te sirva esto.

Muchas gracias por tu consejo... el unico problema es que no se cual es el simil de la sentencia: "Data1.recordset.NoMatch"...es decir, me gustaría comprobar si ha encontrado algo con el Adodc. Muchisimas gracias por tu atencion y espero tu respuesta :)

Tenes que usar la funcion find de ADO, que el la que te permite buscar y despues fijarte en donde queda parado el recordset se que en EOF es por que no encontro nada.