access登录窗体显示找不到方法和数据成员

Private Sub OK_Click()

  On Error GoTo Err_OK_Click
  Dim strSQL As String
  Dim rs As New ADODB.Recordset
If IsNull(Me.UserName) Or Me.UserName = "" Then
  DoCmd.Beep
  MsgBox ("请输入用户名称！")
ElseIf IsNull(Me.Password) Or Me.Password = "" Then
       DoCmd.Beep
       MsgBox ("请输入密码！")
    Else
       strSQL = "SELECT * FROM 管理员 WHERE       用户名='" & Me.UserName & "' and 密码='" & Me.Password & "'"
        Set rs = GetRs(strSQL)
        If rs.EOF Then
            DoCmd.Beep
             MsgBox ("用户名或密码错误！")
            Me.UserName = ""
            Me.Password = ""
            Me.UserName.SetFocus
            Exit Sub
        Else
            DoCmd.Close
            check = True
            DoCmd.OpenForm ("主切换面板")
        End If
    End If
    Set rs = Nothing
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox (Err.Description)
    Debug.Print Err.Description
    Resume Exit_OK_Click

End Sub