Accessでセキュリティ警告が出ないようにする

http://office.microsoft.com/ja-jp/access-help/HP001037943.aspx?pid=CH010411431041
Accessmdbファイルを自動的に開かせるときにセキュリティ警告が発生してしまうことを抑制するには以下のコードを利用する。

Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 11 Then
   AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If