压缩当前数据库

钱玉炜老师的压缩修复数据库，非常适用，但经过使用，在2003环境下能正常使用，2010时就不能使用了。提示：

运行时错误'2147467259(80004005)':
方法'SetFocus'作用于对象'_msoControlButton'时失败
想用在2010环境下，怎样修改，这是原代码：

Public Function Compact()
   ' 添加一个工具条
   With CommandBars.Add(, msoBarFloating, , True)
     ' 在工具条上添加一个按钮，这个按钮是从系统菜单的[工具]中[压缩]产生的
     .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID
     .Visible = True
     ' 将焦点移到该按钮上
     .Controls(1).SetFocus
     ' 模拟击键
     SendKeys "{ENTER}"
   End With
End Function