ADOでカレントデータベースのコネクションを取得

ADOでカレントデータベースのコネクションを取得

    Dim conn As ADODB.Connection
   
    Set conn = CurrentProject.Connection
   
    MsgBox conn.ConnectionString
   
    conn.Close: Set conn = Nothing