prima della "prima QUERY" metti

On Error Goto gestione_rollback
...........'query1
...........'query2
...........'query3
conn.CommitTrans '<-- se arrivi quà le query sono andate a buon fine

goto nessun_errore
........

gesitione_rollback:
........
conn.RollbackTrans '<-- gestisci l'errore e fai il rollback
........

nessun_errore:
.......
.......
.......