access主切换面板提示执行命令时错误

Option Compare Database

Private Function HandleButtonClick(intbtn As Integer)
' 处理按钮click事件
    Const conCmdGotoSwitchboard = 1
    Const conCmdNewForm = 2
    Const conCmdOpenReport = 3
    Const conCmdExitApplication = 4
    Const conCmdRunMacro = 8
    Const conCmdRunCode = 9
    Const conCmdOpenPage = 10
    Const conErrDoCmdCancelled = 2501
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    On Error GoTo HandleButtonClick_Err
  Set rs = CreateObject("ADODB.Recordset")
  strSQL = "SELECT * FROM [Switchboard Items]"
  strSQL = strSQL & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intbtn
  Set rs = GetRs(strSQL)
    If (rs.EOF) Then
 MsgBox "读取 Switchboard Items 表时出错。"
    rs.Close
    Set rs = Nothing
    Exit Function
  End If
Select Case rs![Command] ' 进入另一个切换面板
    Case conCmdGotoSwitchboard
    Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
    ' 打 开一个新窗体
    Case conCmdNewForm
    DoCmd.OpenForm rs![Argument]
    ' 打开报表
    Case conCmdOpenReport
    DoCmd.OpenReport rs![Argument], acPreview
    ' 退出应用程序
    Case conCmdExitApplication
    CloseCurrentDatabase
    ' 运行宏.
    Case conCmdRunMacro
    DoCmd.RunMacro rs![Argument]
    ' 运行代码.
    Case conCmdRunCode
    Application.Run rs![Argument]
   ' 打开一个数据存取页面
    Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs![Argument]
    ' 未定义的选项
    Case Else
    MsgBox "未知选项"
    End Select
   ' Close the recordset and the database.
    rs.Close
HandleButtonClick_Exit:
    On Error Resume Next
    Set rs = Nothing
    Exit Function
HandleButtonClick_Err:
    If (Err = conErrDoCmdCancelled) Then
        Resume Next
    Else
        MsgBox "执行命令时出错。", vbCritical
        Resume HandleButtonClick_Exit
    End If
End Function