Visual Basic - Transacciones en SQL

Hola necesito un ejemplo con ADODB o ADODC para trabajar con transacciones y SQL
BeginTrans
CommitTrans
Rollback
Etc.

de antemano muchas gracias

Los métodos begintrans, committrans y rollbacktrans se encuentran en el objeto connection de ADO.

Simpemente, deberías hacer lo siguiente (suponiendo una conexion con nombre Cnn ya establecida):

Private Sub PruebaTransaccion()
cnn.BeginTrans()

On Error Goto ManejoErrorDB

'acá deberías hacer todos los insert / update / delete que deseas ( ya
'sea de registros o de estructura de tablas)

cnn.CommitTrans() 'Se supone que si llegó al final nunca hubo problemas

Msgbox "Se realizaron todas las operaciones con éxito"
Exit Sub

ManejoErrorDB:
cnn.RollbackTrans
msgbox "se han producido errores en alguna de las operaciones"

End Sub