Access VBA中编译错误：子程序或函数未被定义是怎么回事？

Question

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
请问是哪里错了嘛？？请帮帮忙，谢谢，这个是搞登陆功能的。

Answer 1

ok_Click()在form里 ？？我这是在命令按钮上单击触发得命令

Answer 2

那要放在模块中，去Private Sub ok_Click()

Answer 3

放在模块中？？不是单击事件？是放在读取事件中嘛？
去Private Sub ok_Click() 这句不要？？？请说明一下，谢谢，别讲太高深。我是初学得。看不懂。这个功能我是在书上看到抄上去的。

Answer 4

设计模式下，在form中点击那个按钮，有个菜单可以edit code（记不请了）

Answer 5

跑了下
就是缺少GetRs函数

Answer 6

GetRs(strSQL)
自己写的吧=GetRecordSet（）？