Utiliza lo siguiente en tu procedimiento
Private Sub Command1_Click()
On Error Goto Crtl_Error
nError=0
'Primero envia a la base de datos el inicio de la transaccion
'es decir envia BEGIN TRAN
'<aqui va la primera sentencia sql>
if nError=0 then
'<Aqui va la segunda sentencia sql>
if nError=0 then
'<Aqui va la segunda sentencia sql>
endif
endif
if nError=0 then
'Envia el termino de la transaccion COMMIT TRAN
else
'Envia que se reversen los cambios con ROOLBACK TRAN
endif
Exit Sub
Ctrl_Error:
nError=Err.Number
msg="Error " & Err.Number & vblf & Err.Description
msgbox msg,vbcritical,"Advertencia
Resume Next
End Sub
