[ツール]メニューの[オプション]をクリックすると表示される
オプションダイアログボックスの現在の値を取得するには、
ApplicationオブジェクトのGetOptionメソッドを使用します。
　また、設定する場合は、SetOptionメソッドを使用します。

● サンプル　●[取得方法]

　下記は、GetOptionメソッドを使って、[全般]タブに有る
[既定のデータベースフォルダ]の値を取得します。

Sub Sample()
    Dim optSetting As Variant
    
    optSetting = _
        Application.GetOption("Default Database Directory")
    
    Debug.Print optSetting
    
End Sub


　このプロシージャを実行すると、イミディエイトウィンドウに
フォルダ名（例えば「C:\My Documents\」）が記述されます。

● サンプル　●[設定方法]

　下記は、SetOptionメソッドを使って、[全般]タブに有る
[既定のデータベースフォルダ]の値を設定します。

Sub Sample()

    Application.SetOption _
        "Default Database Directory", "C:\moug\"

End Sub


*この他のオプションについては、ヘルプの「VisualBasicを使った
オプションの設定」を参考にしてください。