Application.SetOption "Show Status Bar", False
Application.SetOption "Show Startup Dialog Box", False

　　我们做好程序分发给他人使用时，可能别人的access系统环境跟你的不一样，并会导致很多麻烦问题，最明显的就是：当你在程序中执行某个操作查询(更新、删除、追加、生成表)时,会弹出一些恼人的提示信息让你确认。
   其实，我们完全可以在代码中对access的运行环境进行设置，语法为
　　SetOption(OptionName, Setting)
　　但是在程序中的optionName一般只认英文,且一个字符也不能错，而　工具－选项　里面全是中文。这时，你如果按如下路径打开你的注册表，便会发现这些英文东东全部老老实实的呆在那里呢：

2002版：　　　　　　　　　　　　　　　　　　　　　　　　
[HKEY_USERS\.DEFAULT\Software\Microsoft\Office\10.0\access\Settings]