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

Dim workspace As DAO.workspace
Set workspace = DBEngine.Workspaces(0)
Dim database As DAO.database
Set database = CurrentDb

workspace.BeginTrans

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

workspace.CommitTrans
'workspace.Rollback