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

Question

对象变量或 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

Answer 1

Set mrc = CONN.Execute(txtSQL)

Answer 2

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