'SQL1.BeginTransaction
'Try
For i = 1 To 10000
sql1.AddNonQueryToBatch("INSERT INTO table1 VALUES (?)", Array As Object(Rnd(0, 100000)))
Next
sql1.ExecNonQueryBatch("SQL")
'SQL1.TransactionSuccessful
'Catch
'Log(LastException.Message)
'End Try
'SQL1.EndTransaction