如题，编译错误，定量未定义
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

frmguiRegist
看变量名，应该是一个窗体名，你检查一下工程里有没有叫这个名字的窗体 。
如果没有，建一个吧。