找不到工程或库

Private Sub CmdLogin_Click()
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text))       '//将文本框内的值赋给定义好的全局变量
PassWord = CStr(Trim(TxtPassWord.Text))
If UserName <> Empty And PassWord <> Empty Then     '//用户名与密码是否为空
    StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
    If RsLoginCheck.State = adStateClosed Then
        RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText   '//打开记录集
    End If
    Group = RsLoginCheck.Fields(2).Value
    If RsLoginCheck.Fields(2).Value <> "Administrators" Then
        Call CheckLogin
    End If
    If RsLoginCheck.RecordCount <> 0 Then   '//判断记录集记录条数是否为0
        RsLoginCheck.Close
        Unload Me
        Frmmdimain.Show         '//显示主窗
        FrmDay.Show vbModal
    
    ElseIf Counts < 2 Then
        MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "登录失败"
        RsLoginCheck.Close        '//关闭记录集
        Counts = Counts + 1    Else
        MsgBox "密码错误不得超过三次，否则视您为非法用户！", vbCritical, "警告"
        End
    End If
Else
    MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "登录失败"
    Call Form_Load
End If
End Sub
光标定在第三行