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 <