アクセスぐらい使えるようになろうな
over 2kだが
Sub test()
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
cn.BeginTrans
cn.Execute "update テーブル set b = '値'"
cn.RollbackTrans
End Sub
これでテーブルが更新されているかどうか
確かめられるだろ。