コミット、ロールバックのやり方がわからなくて
困っています。

BeginTrans
DoCmd.RunSQL("INSERT INTO TESTTBL VALUES(1,'TEST')")
Rollback

これではロールバックされません。
他データベースに対しては
WorkSpaces(0).BeginTrans　みたいにするようなのですが、
自分自身のWorkSpaceオブジェクトの取得方法がわかりません。
もしかしたら見当違いのこといってるかもしれません。
CurrentDB.BeginTrans　みたいな感じかと思っていたのですが、
そのようなメソッドもなく困っています。

アクセスVBAでの更新処理はどのようにすればいいでしょうか？