要在access库中开启事务，需要使用VBA代码。下面是一个简单的示例，展示了如何在access库中创建一个事务：
Sub StartTransaction()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Set db = CurrentDb
Set ws = DBEngine.Workspaces(0)
ws.BeginTrans
' 在这里执行需要在事务中执行的SQL语句
ws.CommitTrans
Set ws = Nothing
Set db = Nothing
End Sub
在上面的示例中，我们使用了DAO对象来引用数据库和工作空间。首先，我们使用BeginTrans方法开始一个事务，然后在事务中执行需要执行的SQL语句，最后使用CommitTrans方法提交事务。如果在执行SQL语句过程中出现错误，可以使用Rollback方法回滚事务。
