Access VBA ADO データベースに接続する（遅延バインディング)

【カレントデータベースに接続する場合】

Sub adoTest()
    Dim adoCn As Object 'ADOコネクションオブジェクト      
    'AccessVBAで現在のデータベースへ接続する場合
    Set adoCn = CurrentProject.Connection  
    adoCn.Close
    Set adoCn = Nothing
End Sub

【カレント以外のデータベースに接続する場合】

Sub adoTest()
    Dim adoCN As Object
    Set adoCN = CreateObject("ADODB.Connection")
    '接続先のAccessファイルパスを「Data Source」に指定
    adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:デスクトップ\Accessアプリ\data.accdb;"
    adoCN.Close
    Set adoCN = Nothing
End Sub