データベース

取得

　ファイルを指定

Dim データベース As DAO.DATABASE
Set データベース = OpenDatabase("データベースのフルパス")

　　参照なし

Set データベース = CreateObject("DAO.DBEngine.120").OpenDatabase(データベースのフルパス)