他のデータベース（Access）を起動する

Private Sub prcOpenDatabaseB_Click()
    ' 変数宣言
    Dim strDatabasePath As String ' データベースBのパス
    Dim appAccess As Access.Application ' Accessアプリケーションオブジェクト

    ' データベースBのパスを設定します
    strDatabasePath = "C:\Path\To\DatabaseB.accdb" ' データベースBのパスを指定

    ' 新しいAccessアプリケーションオブジェクトを作成
    Set appAccess = New Access.Application

    ' データベースBを開く
    appAccess.OpenCurrentDatabase strDatabasePath

    ' Accessアプリケーションを表示
    appAccess.Visible = True

    ' オブジェクトのクリーンアップ
    Set appAccess = Nothing
End Sub