关于自动化错误的问题，请高手高高手来看

问题描述：

开发工具：access97(不要再说它老还是不老啦)

系统：windows2003,windows xp,windows 2000

问题：开发出来的系统一直用了5年都没问题！最近打算完善一些窗体功能，在测试过程中，发现一个怪现象，本来好用的代码突然说自动化错误，这段代码是用来屏蔽access本身菜单，然后将自己菜单挂上去的。

代码写在模块中，大体分两个部分，

第一步：屏蔽菜单

Sub menu_clear()
On Error Resume Next
Dim crc_menu As Office.CommandBar

on error resume next
For Each capms_menu In CommandBars

'其实刚进入循环就出了错误，如果在这句话前面，用 On Error goto。。。就会显示，自动化错误
    If crc_menu.name = "crc_menu" Then
        Set crc_menu = Application.CommandBars("crc_menu")
        DoCmd.ShowToolbar "crc_menu", acToolbarNo
    End If
Next

End Sub

第二步：放上自己的菜单(仅仅举例)

For Each crc_menu In CommandBars '仍然是在此步出错！！！！！！
    If crc_menu.name = "crc_menu" Then
        Set crc_menu = Application.CommandBars("crc_menu")
        crc_menu.delete
    End If
Next

'create crc menu bar
Set crc_menu = Application.CommandBars.Add(, , MenuBar:=True, temporary:=True)
With crc_menu
.name = "crc_menu"
.position = msoBarTop
.Visible = True
.Protection = msoBarNoChangeDock + msoBarNoCustomize + msoBarNoMove + msoBarNoResize
.Enabled = True
.NameLocal = "crc_menu"
End With

问题出现后，我退出程序，关掉窗口，再次打开.mdb文件，发现access本身的菜单不好用了，也不确定到底哪个不好用，有时候“文件”不好用，有时候“编辑”……

当“文件”菜单好用的时候，我点击“数据库属性”，access告诉我“无法加载数据库属性”！

我用“工具”——》分析——》文档管理器，对“宏”进行分析，告诉我：

doc_mnurptpreview

addmenu

有问题！

不知道怎么传本地图片上来？我可以给大家看看。