Set ws = DBEngine.Workspaces(0)
Set db = ws.Databases(0)

ws.BeginTrans
db.Execute 云々
ws.Rollback

ホントはこうやって使う