对象变量或 With 块变量没有设置（错误 91）？？？

[yanzhu]

对象变量或 With 块变量没有设置（错误 91）？？
这个错误我如何改呀，急，急？？？？

原代码：
txtSQL = "select * from users where usname = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
************If mrc.EOF = True Then********************* 这行报错!!!!
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
..........
End If

[oxfordxyc]

Set mrc = CONN.Execute(txtSQL)

[ivt]

mrc.open txtsql,conn
if mrc.eof then
..............
else
msgbox "重复"
end if

[nullarea]

你的连接已经关闭了引起的