vb: 实时错误 '-214702470 (8007007e)':自动化错误

Option Explicit
Private mclsMidTier As clsMidTier
Dim rs As Recordset
Dim strCmd As String

Public LoginSucceeded As Boolean
Private Sub cboUserName_LostFocus()
   '全局用户名
   UserName = cboUserName.Text
End Sub

Private Sub cmdCancel_Click()
    '设置全局变量为 false
    '不提示失败的登录
    LoginSucceeded = False
    End
End Sub

Private Sub cmdOK_Click()
   Dim strFindUser As String
   Dim strCondition As String
   
   strFindUser = cboUserName.Text
   strCmd = "Select UserName,UserPassword From UserInfo "
   strCondition = "UserName='" & strFindUser & "'"
   
   Set rs = mclsMidTier.GetList(strCmd, strCondition)
   
   If Not rs.BOF Then
      rs.MoveFirst
   End If
   
    '检查正确的密码
   If rs.RecordCount <> 0 Then
      If rs("UserPassword") = txtPassword.Text Then
         LoginSucceeded = True
         
         Load frmMDIMain
         frmMDIMain.Show
         Unload Me
      ElseIf rs("UserPassword") <> txtPassword.Text Then
         MsgBox "无效的密码，请重试!", vbOKOnly + vbExclamation, "登录提示"
         txtPassword.SetFocus
         SendKeys "{Home}+{End}"
      End If
   End If
End Sub

Private Sub cboUserName_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      KeyAscii = 0
      SendKeys "{Tab}"
    End If
End Sub

Private Sub Form_Load()
   Set mclsMidTier = New clsMidTier
   
   Set rs = mclsMidTier.GetList("select * from UserInfo")
   If rs.RecordCount = 0 Then
      rs.AddNew
      rs("UserName") = "System"
      rs("UserPassword") = "123456"
      rs.Update
    Else
      rs.MoveFirst
    End If
    Do While Not rs.EOF
       cboUserName.AddItem rs("UserName")
       rs.MoveNext
    Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)
   rs.Close
   Set rs = Nothing
   Set mclsMidTier = Nothing
End Sub

 

上面黄颜色标注的地方为指向的地方。