Si no me equivoco deberia ser casi igual
psql="insert into datos (codigo,nombre,edad) values('" & cod & "','" & nom & "'," & eda & ")"
db.begintrans
On error resume next
db.execute(psql)
If err.number = "" Then
db.CommitTrans
Else
db.RollbackTrans
End If
A ver si sale asi
