hola Leonardo esto entendi
necesitas dos cajas de texto(text1 y text2) y un boton(command1)
Private Sub Command1_Click()
If (Text1 <> "") And (Text2 <> "") Then
MsgBox "proceso buscarcarcuentaypasssword"
Exit Sub
ElseIf (Text1 = "") Or (Text2 = "") Then
MsgBox "alguna caja de textto esta vacia", 32, "Error"
Exit Sub
End If
End Sub
Sub buscarcarcuentaypasssword()
' consultar la base de datos que contenga la cuenta
'y cargarla en ...
'buscarcar cuenta y password en una base de datos
' compararlos con las cajas
If (Text1 = "micuenta") And (Text2 = "mipass") Then
'entrar...
ElseIf (Text1 <> "micuenta") And (Text2 <> "mipass") Then
MsgBox "Cuenta o password erroneo"
Exit Sub
End If
End Sub