创建工具栏时的错误

Question

Private Sub Workbook_Open()    Set tbar = Application.CommandBars.Add(Name:="寝室管理系统")'这句话总出错，就是调试不过去，感觉已经没错误了啊！请各位大虾帮看看
    '初始化按钮
    Set initButt = tbar.Controls.add(Type:=msoControlButton)
    With initButt
        .Caption = "系统初始化"
        .Style = msoButtonCaption
    End With
    '添加按钮
    Set addButt = tbar.Controls.add(Type:=msoControlButton)
    With addButt
        .Caption = "添加新生"
        .Style = msoButtonCaption
    End With
    '查找按钮
    Set findButt = tbar.Controls.add(Type:=msoControlButton)
    With findButt
        .Caption = "查找"
        .Style = msoButtonCaption
    End With
    '模糊查找
    Set findByLikeButt = tbar.Controls.add(Type:=msoControlButton)
    With findByLikeButt
        .Caption = "模糊查找"
        .Style = msoButtonCaption
    End With
    
    tbar.Visible = True
    
End Sub    Set tbar = Application.CommandBars.Add(Name:="寝室管理系统")'这句话总出错，就是调试不过去，感觉已经没错误了啊！请各位大虾帮看看