恢复默认菜单和工具栏的办法

引用 microsoft office 9.0 object library
执行如下过程：

public sub enabledefaultmenu()
dim obar as commandbar

set obar = commandbars("menu bar")
obar.reset
end sub

恢复默认菜单和工具栏，搞定！
注：menu bar是指access的主菜单