vb制作的登录框中，很奇怪的问题？超郁闷--菜鸟

Question

我做了个简单的登录窗口，没什么基础，比较简陋，可是这问题超郁闷，我用设置的用户名和密码无法登录。真是郁闷极了。下面是代码：
Private Sub Command1_Click()
 
If Text1.Text = ″″ Then
      jinggao.Visible = True
      Unload Me
      Exit Sub
    
    Else:
      If Text1.Text = ″admine″ And Text2.Text = ″1234″ Then
        MsgBox ″Welcome!″, vbOKOnly + vbInformation, ″Welcome″
        SPGLXT.Show
        Unload Me
      Else: SPGLXT.Show '这是后来改的，为了后面的测试，即输入错误的能登录，若去掉则是无法登录。
       Unload Me
      End If
    End IfEnd Sub测试事郁闷死了，用户名是：admine 密码是：1234 ，但是就是登录不了。还有把MsgBox ″Welcome!″, vbOKOnly + vbInformation, ″Welcome″去掉的话，我觉得没什么问题，但是有时候会出现 错误：缺少then 或togo 语句或者是语法错误，如果有空顺便这个也说说，我是个菜鸟，才学几天，朋友就要我做个什么毕业设计，我狂汗~！还望高手指点！

Answer 1

Private Sub Command1_Click()
'Text1输入用户名。Text2输入密码If Len(Trim(Text1.Text)) = 0 Or Len(Trim(Text2.Text)) = 0 Then
   MsgBox "密码或用户名不能为空.请输入。"
   Text1.SetFocus
Else
  If Trim(Text1.Text) = "admine" And Trim(Text2.Text) = "1234" Then
        MsgBox "Welcome!", vbOKOnly + vbInformation, "Welcome"
        SPGLXT.Show
        Unload Me
  Else
      MsgBox "密码或用户名错误.请重新输入。"
      
  End If
End IfEnd Sub

Answer 2

这是VB6自带的登录用的两段代码,可参考一下:
Private Sub cmdCancel_Click()
    '设置全局变量为 false
    '不提示失败的登录
    LoginSucceeded = False
    Me.Hide
End SubPrivate Sub cmdOK_Click()
    '检查正确的密码
    If txtPassword = "12345678" Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = True
        Me.Hide
        Form1.Show
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub