我运行vb时点击出现实时错误91 对象变量或with块未设置

我做了个程序，登录界面运行时总是出现“91”的错误，怎么也找不到原因，代码是书上的，数据库连接提示也是“连接成功”，但就是运行有错误，能不能请高手给指点一下，以下是代码：
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String

UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user where user_ID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = T

vb运行时错误70 vb运行错误？ VB 运行错误 关于vb运行时错误 70 拒绝的权限 VB中运行时错误91，请高手帮帮忙，急 运行vb程序时总提示加载错误？？？？怎么办？ 怎样在VB设置一个按钮时点击后运行外部脚本? 我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置 我用vb和sql server2000作了一个系统，但是运行时，出现了如下错误？ vb 运行时错误'3709',连接无法用于些操作