ADOの場合

Dim cnn As ADODB.Connection

Set cnn = CurrentProject.Connection

※ライブラリの参照設定で、「Microsoft ActivX Data Objects x.x」 Libraryを予め選択しておく必要あり。

　

DAO

Dim cnn As Database

Set cnn = CurrentDb

※DAOはLibralyを設定しなくても動く