慧兰语音冥想:实时错误'91'对象变量或With块变量未设置

实时错误'91'对象变量或With块变量未设置
我从图书馆借来的书带的光盘上拷下来一个系统,但是这个系统不完善,没有用户管理,我就做了添加用户和密码修改两个窗体添加到系统里,但是运行不了,

我点添加读者种类那项，没问题，后来点修改读者种类就出来这个错误。

实时错误'91'对象变量或With块变量未设置
点调试光标停留在Do While Not mrc.EOF
这是错误的代码
Private Sub ShowData()
Dim i As Integer
Set mrc = ExecuteSQL(txtSQL, MsgText)
With msgList
.Rows = 1

Do While Not mrc.EOF
.Rows = .Rows + 1
For i = 1 To mrc.Fields.Count
Select Case mrc.Fields(i - 1).Type
Case adDBDate
.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
Case Else
.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
End Select
Next i
mrc.MoveNext
Loop

End With
mrc.Close
End Sub
有的啊