Dim txtSQL As String
Dim MsgText As String
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtSQL = "select * from oper where 用户名='" & Trim(Text1.Text) & "'" & " and 口令='" & Trim(Text2.Text) + "'"
Set mrc = ExeSQL(txtSQL, MsgText)
If mrc.RecordCount = 0 Then
n = n + 1
If n < 3 Then
MsgBox "没有这个用户，继续登录", vbOKOnly + vbExclamation, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
MsgBox "已登录失败三次，退出系统", vbOKOnly + vbExclamation, "信息提示"
mrc.Close
Unload Me
End If
Else
userlevel = Trim(mrc.Fields("级别"))
mrc.Close
Unload Me
main.Show
End If
End Sub

运行程序时出现提示“对象变量或with块变量未设置”，应该如何添加程序呢？请高手指教！

Dim mrc As new ADODB.Recordset '這里改一下試一下。

楼主能否提示一下在哪行出错的？

楼上解答错误。无须事先构造Rs,在Set的时候会赋值，Set之前是空引用

我猜是这行出错了：If mrc.RecordCount = 0 Then

也许此时mrc是空引用 你检查一下这个表达式：mrc=Nothing

检查你的ExeSQL方法有没有错

是If mrc.RecordCount = 0 Then 这行提示错误，谢谢你的帮忙！

[此贴子已经被作者于2007-8-22 16:54:02编辑过]

也许此时mrc是空引用 你检查一下这个表达式：mrc=Nothing

检查你的ExeSQL方法有没有错

[此贴子已经被作者于2007-8-22 19:39:54编辑过]

或者是Rs的获取方式有问题

谢谢，已弄好