クエリ

実行

　エラー時はロールバックする

Dim クエリ As DAO.QueryDef

Set クエリ = db.QueryDefs("クエリ名")
クエリ.Execute dbFailOnError

クエリ.Close
データベース.Close