データベース

接続

Dim データベース As New ADODB.Connection

With データベース
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open ファイルのフルパス
End With

閉じる

データベース.Close
Set データベース = Nothing

　レコードセットを開いたとき

レコードセット.Close
データベース.Close

Set レコードセット = Nothing
Set データベース = Nothing