error en usuario y contraseña

[elbano66]

bueno pana yo lo hago de esta manera


Private Sub Command1_Click()
If Len(Trim(txtUsuario)) = 0 Then
txtUsuario.SetFocus
ElseIf Len(Trim(txtContraseña)) = 0 Then
txtContraseña.SetFocus
ElseIf txtUsuario = "jose" And txtContraseña = "movilnet01" Then
Form5.Show
ElseIf txtUsuario = "jose1" And txtContraseña = "movilnet02" Then
Form5.Show
Unload Me
Else
MsgBox "Usuario o clave incorrecta", vbCritical, "Advertencia"
txtContraseña.SelStart = 0
txtContraseña.SelLength = Len(Trim(txtContraseña))
txtContraseña.SetFocus
End If

End Sub

analizalo aver si te sirve hy solo tiene ingreso dos usuario puede colocar trez cuatro...