大家好！我是新手刚学VB，写了以下这代码做用户登录，可当密码和用户都对时，不能进入软件，还是在用户登录窗口，不知道为什么？请高人帮忙，谢谢！
(503940359@)

Private Sub Command1_Click()
    Dim a As Variant
    Dim b As Variant
    a = Text1.Text
    b = Text2.Text
    If a = "qwer" Or b = "123" Then Form1.Show
    Unload Me
    If a <> "qwer" Then MsgBox "用户名错误，您不能使用本软件！", vbCritical, "用户登录"
    Form1.Visible = False
    Form2.Show
    If b <> "123" Then MsgBox "密码错误，您不能使用本软件！", vbCritical, "用户登录"
    Form1.Visible = False
    Form2.Show
End Sub

If a = "qwer" Or b = "123" Then Form1.Show
    Unload Me

为什么要UNLOAD ME

学习学习谢谢

照你的意思，form2是登陆窗口，form1是软件窗口。
应该是：If a = "qwer" And b = "123" Then Form1.Show

这样行不行
Private Sub Command1_Click()
    Dim a As Variant
    Dim b As Variant
    a = Text1.Text
    b = Text2.Text
    If a = "qwer" And b = "123" Then
    Form1.Show
    Unload Me
    ElseIf a <> "qwer" Then
    MsgBox "用户名错误，您不能使用本软件！", vbCritical, "用户登录"
    ElseIf b <> "123" Then
    MsgBox "密码错误，您不能使用本软件！", vbCritical, "用户登录"
    End If
End Sub

[[it] 本帖最后由 逐日 于 2008-12-7 13:38 编辑 [/it]]

Private Sub Command1_Click()
    Dim a As Variant
    Dim b As Variant
    a = Text1.Text
    b = Text2.Text
    If a = "qwer" And b = "123" Then
    Form1.Show
    Unload Me
    ElseIf a <> "qwer" and b="123" Then
        MsgBox "用户名错误，您不能使用本软件！", vbCritical, "用户登录"
        else
        MsgBox "密码错误，您不能使用本软件！", vbCritical, "用户登录"
        End If
    End If
End Sub

新来的来学习 ！转转！