有5年工作经验的vb程序员都没有解决的问题？

Question

If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
 对这句话 错误提示 ：在对应所需要的名称或序数的集合中,未找到项目    
 If mrc.EOF = True Then
 这句话 错误提示：对象关闭时，不允许操作   
rivate Sub cmdOK_Click()
        '用来存放SQL语句
        Dim txtSQL As String
       '用来存放记录集对象
        Dim mrc As New ADODB.Recordset
        '用来存放返回信息
        Dim MsgText As String
        UserName = ""
        '判断输入用户名是否为空
        If Trim(txtUserName.Text = "") Then
                MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
                txtUserName.SetFocus
        Else
                '查询指定用户名的记录
                txtSQL = "SELECT * FROM user_Info1 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 = Trim(txtPassword.Text)
                        Else
                                MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                                txtPassword.SetFocus
                                txtPassword.Text = ""
                        End If
                End If
        End If
        '记载输入输入密码次数
        miCount = miCount + 1
        If miCount = 3 Then
                Me.Hide
        End If
        Exit Sub
                
End Sub  
ADO连接数据库模块 我是COPY 百度_无浪学vb吧_ADO连接数据库模块 
  有5年工作经验的vb程序员 说我数据原没有连接好，但是他远程操作也没有解决。望各位帮忙解决下？

Answer 1

ADO连接数据库模块 
Public UserName As String 
Public fMainForm As frmMain 
Public gintdMode As Integer 
Public gintvMode As Integer 
Public gintsMode As Integer 
Public gintrMode As Integer 
Public gintaMode As Integer 
Public flagdEdit As Boolean 
Public flagvEdit As Boolean 
Public flagsEdit As Boolean 
Public flagrEdit As Boolean 
Public flagaEdit As Boolean 
Sub Main() 
Dim fLogin As New frmLogin 
fLogin.Show vbModal 
If Not fLogin.OK Then 
'Login Failed so exit app 
End 
End If 
Unload fLogin 
Set fMainForm = New frmMain 
fMainForm.Show 
End Sub Public Function ConnectString() _ 
As String 
'returns a DB ConnectString 
ConnectString = "FileDSN=vehicle.dsn;UID=sa;PWD=" 
End Function 
Public Function ExecuteSQL(ByVal SQL _ 
As String, MsgString As String) _ 
As ADODB.Recordset 
'executes SQL and returns Recordset 
Dim cnn As ADODB.Connection 
Dim rst As ADODB.Recordset 
Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) 
Set cnn = New ADODB.Connection 
cnn.Open ConnectString 
If InStr("INSERT,DELETE,UPDATE", _ 
UCase$(sTokens(0))) Then 
cnn.Execute SQL 
MsgString = sTokens(0) & _ 
" query successful" 
Else 
Set rst = New ADODB.Recordset 
rst.Open Trim$(SQL), cnn, _ 
adOpenKeyset, _ 
adLockOptimistic 
'rst.MoveLast 'get RecordCount 
Set ExecuteSQL = rst 
MsgString = "查询到" & rst.RecordCount & _ 
" 条记录 " 
End If 
ExecuteSQL_Exit: 
Set rst = Nothing 
Set cnn = Nothing 
Exit Function ExecuteSQL_Error: 
MsgString = "查询错误: " & _ 
Err.Description 
Resume ExecuteSQL_Exit 
End Function 
Public Sub EnterToTab(Keyasc As Integer) 
If Keyasc = 13 Then 
SendKeys "{TAB}" 
End If 
End Sub

Answer 2

cnn.Open ConnectString 
If InStr("INSERT,DELETE,UPDATE", _ 
UCase$(sTokens(0))) Then 
cnn.Execute SQL 
老兄，都不检查一下结果的？