我初学VB。编了一个用户登录程序，用户名和密码存在数据库里。
程序段如下：
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from pass where 用户名 ='" + Trim(Text1.Text) + "'"
If Adodc1.Recordset.RecordCount > 0 Then
If Text2.Text = Trim(Adodc1.Recordset.Fields("密码")) Then
MsgBox "登录成功"
Else
MsgBox "密码错误"
End If
Else
MsgBox "用户名不存在"
End If
End Sub
在输入用户名和密码单击确定后，提示：“对象变量或with块变量未设置”
请问该如何解决？？？
谢谢了！！！

大家不要笑啊，我是初学的，呵呵。我会努力的！！！！希望能得到大家的帮助！