dim transaction as Sqltransaction
cnn.open()
trsaction=cnn.begintransaction
cmd1.transaction=transaction
cme2.transaction=transaction
cmd3.transaction=transaction
try
cmd1.executenonquery()
cmd2.executenonquery()
cmd3.executenonquery()
transaction.commit()
cnn.close()
catch ex as sqlexception
transaction.rollback()
finally
cnn.close()
end try