VB中运行时错误91，请高手帮帮忙，急

Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password

UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user_Info 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
UserNam

VB中运行时错误91，请高手帮帮忙，急 请高手帮我解决VB不能运行的原因!!! 关于vb程序运行的问题，请高手忙帮 vb运行时错误70 VB程序错误,请高手指教 vb运行错误？ VB 运行错误 电脑运行时加载错误问题，请高手帮忙 关于VB中，MSGBOX函数运行的问题，请高手赐教。 程序好多运行错误，请高手指点