Dim sq As SQL = Pool.GetConnection
sq.BeginTransaction
Try
sq.ExecNonQuery2("INSERT INTO table1 VALUES(?, ?, 0);", Array("Sunday", "Monday"))
sq.TransactionSuccessful
Catch
If LastException.IsInitialized Then
Log(LastException.Message)
End If
End Try
sq.Close