隐藏导航窗格 提示错误

我使用网站这个办法，在隐藏导航窗格显示时，提示错误，请大侠帮忙看下怎么解决？谢谢！

在开发自己的解决方案时，我们可能不想让 ACCESS 2010 的导航窗格显示，这时我们可以在VBA的标准模块中新建一个函数：

Public Function CloseNavigationPane()
'隐藏导航窗格
Dim strTableName As Variant
strTableName = DLookup("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")
DoCmd.SelectObject acTable, strTableName, True
DoCmd.RunCommand acCmdWindowHide
End Function

然后再新建一个名为AutoExec的宏，在宏中用RunCode宏命令调用上面的CloseNavigationPane函数就OK了。