MS AccessでADOトランザクション

Dim connection As New ADODB.connection
connection.ConnectionString = CurrentProject.BaseConnectionString
connection.Open

connection.BeginTrans

connection.Execute "UPDATE test SET val = 'test';"

connection.CommitTrans
'connection.RollbackTrans