트랜잭션

db.Errors.Clear
db.BeginTrans          ' 트랜잭션 시작
db.Execute (SQL)       ' Execute 
  
if db.Errors.Count > 0 then
   db.RollbackTrans     ' 에러가 발생한다면 트랜잭션 롤백시킨다.
   Set err = Server.CreateObject("AdoDB.Error")

   for Each err in db.Errors
        Msg (err.Description)  ' 에러문 출력
   next

   err.Close() : Set err=Nothing
else
   db.CommitTrans        ' 에러없이 진행한다면 트랜잭션 Commit 시킨다.
end if

[출처] 트랜젝션 처리하기|작성자 항해자