编泽错误:方法和数据成员未找到

xyw04

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

小弟刚刚学习ACCESS，对应“Access在人事管理中的应用”制作
现在登陆框不知道，怎么回事，就错误了。

Renco

没装2007,帮不了..呵..

xyw04

天啊！

xyw04

帮帮我吧

roych

请引用ADO和Recordset
（VBE界面，工具\引用\Micr……ActiveX Data Object……）
（VBE界面，工具\引用\Micr……ActiveX Data Object Recordset……）
顺便说一下，我的也不是2007版本，如果还不行的话，建议你把它转存为2003版本我再看看。

Renco

你看你的控件
OK,Cancel,UserName,Password
的命名，全部有问题，都有分行字符，也就是说有分行符在里面，你把名称全部命名一下就可以了