求助！！！代码错误！

如题，编译错误，定量未定义
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "operatorReg"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmAdmin
        frmAdmin.Show
    Case "vipReg"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmVipReg
        frmVipReg.Show
    Case "vipQuery"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmVipQuery
        frmVipQuery.Show
    Case "BookReg"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmBookReg
        frmBookReg.Show
    Case "bookQuery"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmBookQuery
        frmBookQuery.Show
    Case "readReg"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmReadRegist
        frmReadRegist.Show
    Case "readQuery"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmReadQuery
        frmReadQuery.Show
    Case "guiReg"
        CheckConnect 'Reference function to make objcon break if connection is open
        Load frmguiRegist
        frmguiRegist.Show
End Select
End Sub