运行程序时总显示with块变量未设置是什么原因阿？

Question

Dim mrc As ADODB.Recordset
Dim txtsql As String
Dim msgtext As String
Dim i As Integertxtsql = "select * from sxxx"
Set mrc = ExecuteSQL(txtsql, msgtext)
Do While Not mrc.EOF？      ？（显示问题出在这里）？
If mrc.Fields(8) = Text7.Text Then
i = i + 1
End If
mrc.MoveNext
Loop
Me.Label13.Caption = Me.rc1
我运行这段代码想要显示记录的数目，会出现对象变量或with块变量未设置

Answer 1

加一句 set mrc=new adodb.recordset在sql语句前