Insert a una BD relacional

[Developer9]

Eje!!!! en un tema anterior yo puse el codigo para conectarse a una base de datos.

Entonces en el evento clic de el boton Guardar has un llamado a una funcion en un modulo. Aqui te pongo el codigo de una funcion para que te sirva de ejemplo. Lo que hago es llamar a la funcion abre_conexion, y empezar una transaccion, realizar dos updates y hacer el commit, si cualquiera de las dos sentencias sql falla se va por el Y: y hace el rollback y finalmente se cierra la conexion

Despues del begintrans puedes hacer los insert y updates que necesites...

Public Sub anula_comprobante_ingreso()
abre_conexion
On Error GoTo Y:

conexion.BeginTrans

sql = "update cab_ingreso set Nombre='ANULADA', Estado='A', Total='0' where id_cab_ingreso='" + frm_consulta_ing.txtNumero.Text + "'"
conexion.Execute sql

sql = "update det_ingreso set Total='0' where id_cab_ingreso='" + frm_consulta_ing.txtNumero.Text + "'"
conexion.Execute sql

conexion.CommitTrans
MsgBox "Comprobante de ingreso anulado correctamente", vbInformation

Y:
If Err.Number <> 0 Then
conexion.RollbackTrans
MsgBox Err.Description, vbCritical
End
End If
cierra_conexion
End Sub

Cualquier cosa avisas