帮我看看这段代码，我VB初学。
Private Sub Command1_Click()
Dim user, pass
user = Text1.Text
pass = Text2.Text
If Text2.Text = pass Then
MsBox "你好 " & user & "，欢迎进入XXX系统 ", vbOKOnly, "进入系统 "
Form2.Show
Else
MsBox "密码或用户名错误，请重新输入 ", vbOKOnly, "验证失败 "
End Sub

Private Sub Command2_Click()
End
End Sub



[解决办法]
dim user,pass --后面要有数据类型
pass 变量没有初始化，你输入的密码和谁比较呀！？
MSbox --msgbox

[解决办法]
pass = Text2.Text
If Text2.Text = pass Then

自己看下这两个值是不是永远都是相等的?