我初学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块变量未设置”
请问该如何解决？？？
谢谢了！！！

偶太丢人了.从来都没用过控件绑定

[此贴子已经被作者于2007-9-27 16:14:16编辑过]

我给个范例把，希望能帮到楼主：
Private Sub Cmd_Ok_Click()
Dim J As Single
'数据有效性检查
If TxtUser = "" Then
MsgBox "请输入用户名"
TxtUser.SetFocus
Exit Sub
End If
If TxtPwd = "" Then
MsgBox "请输入密码"
TxtPwd.SetFocus
Exit Sub
End If
'将用户输入赋值到变量中
NameKey = MakeStr(TxtUser.Text)
Djry = Trim(NameKey)
PasswordKey = MakeStr(TxtPwd.Text)
LrGs_User = MakeStr(TxtPwd.Text)
'判断用户是否存在
If Myuser.GetInfo(NameKey) = False Then
TxtUser = ""
TxtPwd = ""
MsgBox "用户名不存在"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
Mydb.closeDB
End
Else
Exit Sub
End If
Else
If Trim(Myuser.UPass) <> Trim(PasswordKey) Then
MsgBox "密码不正确"
TxtUser.Text = ""
TxtPwd.Text = ""
' txtUser.SetFocus
Exit Sub
End If
Unload Me
Form_cj.Show
End If
End Sub

同是初学者，共同进步，希望对你有所帮助。其中，myuser是自定义的一个user类。mydb也是自定义的一个用于数据库连接的类。

[此贴子已经被作者于2007-9-27 16:38:26编辑过]

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈 哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

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

机居然卡成这样

[此贴子已经被作者于2007-9-28 12:46:31编辑过]