Cita:
Iniciado por David 
¿Cuál es el código en que te da el error?
Hey necesito ayuda con mi codigo me esta generando un error con el .find este es el cod :
doctor = InputBox("Introduzca El Nº de Cedula del Doctor:", "BUSCAR DOCTOR")
If vbCancel = True Then
Unload Me(frmdoctor)
End If
If Not IsNumeric(COD) Then
MsgBox "CODIGO INCORRECTO", vbInformation
cmdbuscar_Click
Else
strSQL = "SELECT * FROM doctor WHERE Ci_doctor= " + doctor + ""
CRITERIO = "[Cedula]LIKE " & doctor & ""
With RsRecorset
Rs.MoveLast
Rs.Find CRITERIO "en esta linea me genera el error de miembro o metodo no encontrado"
If Rs.BOF Or Rs.EOF Then
MsgBox "EL DOCTOR NO SE ENCUENTRA REGISTRADO", vbExclamation
cmdbuscar_Click
Else
refresc
End With
End If
End If