Option Explicit

Dim cn
Dim rs

Set cn= CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:￥～￥ファイル名.mdb;"
rs.Open "Q_del", cn
rs.Open "Q_add", cn

cn.Close

Set rs = Nothing
Set cn = Nothing
MsgBox "完了しますた。"