Transaccion utilizando DAO

Las transacciones son como un contexto, es decir, todas las acciones (insertar, editar o borrar) que hagas dentro de dicho contexto, pueden ser finalmente anuladas o "fijadas" en la base de datos.
El inicio de una transacción empieza con un BeginTrans y acaba cuando aparece un CommitTrans ("fijas" los datos a la BBDD) o un RollbackTrans (descartas todas las acciones que has hecho).
Lo mejor es que la transacción este contenida en un procedimiento, no la inicies en un procedimiento y la finalices en otro, ya que en muchas bases de datos, hay tiempos limites para el "cierre" de transacciones.
Un ejemplo:
Private Sub pInsertarRegistro()
Dim bInTrans As Boolean
On Error Goto TratarError
DBEngine.WorkSpace(0).BeginTrans: bInTrans = True
DBEngine.WorkSpace(0).Execute "INSERT INTO [Tabla] ..."
DBEngine.WorkSpace(0).CommitTrans: bInTrans = False
TratarError:
If bInTrans Then DBEngine.WorkSpace(0).RollbackTrans
If Err.Number Then
MsgBox Err.Description, vbCritical, Err.Source
Err.Clear
End If
End Sub

Hola otra vez, tu respuesta es buena, pero quiero saber como lo haría con varias tablas, ademas quisiera saber como declarar un objeto dbengine, o la verdad es que quiero que me expliques con un ejemplo, claro si no te quito tanto tiempo.
Pero desde ya te estoy agradecido.
Gracias.
Desde Peru, Jonny