请各位朋友帮我看一下,这段程序应该怎么改~~~谢谢

Question

Private Sub Label4_Click()
    Dim txtsql As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    username = Combo1.Text
    
    txtsql = "select pass from usepass where id = '" & Combo1.Text & "'"
    Set mrc = ExecuteSQL(txtsql, MsgText)
    
           If Trim(mrc.Fields(0)) = Trim(Text1.Text) Then
                mrc.Close
                Me.Hide
                MDIForm1.Show
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                Text1.SetFocus
                Text1.Text = ""
           End If
    
End Sub

Answer 1

txtsql = "select pass from usepass where [id]= '" & Combo1.Text & "'"
试试看

Answer 2

实时错误91   对象变量或WITH块变量未设置

Answer 3

Dim mrc As ADODB.Recordset
Dim mrc As New ADODB.Recordset

Answer 4

Dim mrc As ADODB.Recordset
改为
Dim mrc As New ADODB.Recordset

Answer 5

楼上正解，mrc定义之后未曾实例化，你可直接定义：
Dim mrc As New ADODB.Recordset亦可
Dim mrc As ADODB.Recordset
Set mrc=New ADODB.Recordset请在使用完毕mrc之后清除它
Set mrc=Nothing

Answer 6

在“txtsql = "select pass from usepass where id = '" & Combo1.Text & "'"
”
这句前加上
“Set mrc=New ADODB.Recordset”报错的原因就是没有获得数据集～～

Answer 7

If Trim(mrc.Fields(0)) = Trim(Text1.Text) Then
还是不行呀,系统老提示这行出错"实时错误91   对象变量或WITH块变量未设置"

Answer 8

Dim mrc As New ADODB.Recordset
应该是上面这句
另：不会是Text1已经被你改了名字吧？