Que tal Señores del Foro, tengo el siguiente código:

Text1.Text = usuariox1
Text1.Refresh
misql3 = "select * from usuarios where usuario = '" & CStr(usuariox1)
& "'"
With Data1
.RecordSource = misql3
.Refresh
valida02 = .Recordset!contrase
End With
'valida01 = Data1.Recordset!usuario
'valida02 = Data1.Recordset!contrase

If valida02 = contrasex1 Then
MsgBox "Acceso valido...", vbOKOnly, "acceso"
usuario01 = valida01
Else
MsgBox "La Contraseña no es Correcta, intente de nuevo",
vbCritical, "acceso"
Unload Me
End If

Exit Sub
errorentra:
MsgBox Err.Description, vbOKCancel
'End ==== hasta que existan registros en la BD
End Sub

La pregunta es:
Cómo puedo saber o validar si el Recordset se cumpió o no se
cumplió, ya que solamente me dice el error de que no hay registro
activo, pero se sale del programa, y lo que quiero es que si no hay
registro, que valide, mande mensaje, y salga de la aplicacion. De
antemeno. Gracias..!!!

atte.

Martin.