Access 2000には、プログラム可能なツールバーおよびメニューバーから構成
されるコマンドバーが含まれています。
　これらのコマンドバーを使って、アプリケーション用のカスタム ツールバー
とカスタムメニューを作成することができます。

以下のコードは、「MyCommandBar1」といったコマンドバーにボタンを１つ用意
し、クリックされると、メッセージボックスを表示するマクロです。
また、このマクロを実行する前に、参照設定にて「Microsoft Office 9.0 Object 
Library」を組み込んでおく必要があります。

● サンプル　●

'----- コマンドバーの作成 -----
Sub CreateCommandBar()
    Dim cBarName        As String
    Dim objCmdBar       As CommandBar
    Dim objCmdBarCtl    As CommandBarControl

    cBarName = "MyCommandBar1"

    ' コマンドバーを追加する
    Set objCmdBar = Application.CommandBars.Add(cBarName)

    ' 追加したコマンドバーにボタンを追加する
    Set objCmdBarCtl = objCmdBar.Controls.Add(msoControlButton)
    objCmdBarCtl.Caption = "Button1"
    objCmdBarCtl.Style = msoButtonCaption
    objCmdBar.Visible = True

    ' ボタンのクリックイベントに処理を割り当てる
    CommandBars(cBarName).Controls(objCmdBarCtl.Caption).OnAction = _
                                                   "=MsgBox(""Wow!"")"

End Sub