cegarcia
28 de Abril del 2006

Dim Mivar
Private Sub aceptar_Click()
If(usuario.text="consultor") &(contraseña.text="consulta") Then
sistema.visible=True
Else
Mivar = MsgBox("Compruebe que su nombre de usuario y contraseña estén bien escritos",16,"Error")
End If

End Sub

/*Creo que es lógico lo que quiero obtener, si me envían el código correcto o me dicen cuál es el error que estoy cometiendo, estaré muy agradecido.

Mil Gracias de Antemano

Carlos
28 de Abril del 2006

En el asunto de "Cual es el error?" ya te di la solucion a este problema, por favor comenta si lopudiste resolver

cegarcia
28 de Abril del 2006

Sí, ya lo resolví, Muchas Gracias...