If IsNull(Me.Txt_Usuario) Then
MsgBox "..Texto..", vbInformation, "..Texto..aviso.."
Me.Txt_Usuario.SetFocus
ElseIf IsNull(Me.Txt_Password) Then
MsgBox "..Requerimiento..", cvInformation, "..Requerimiento.."
Me.Txt_Password.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuario", "[Usuario]='" & Me.Txt_Usuario.Value & _
" ' and password = '" & Me.Txt_Password.Valuen & " ' "))) Then
MsgBox "usuario y/o contraseña incorrectos"
Me.Txt_Usuario.SetFocus
Else
DoCmd.Close
'MsgBox "¡Bienvenido¡", , "Acceso Correcto"
DoCmd.OpenForm "menu"
End If
End If