Starter.sqlBN.BeginTransaction
Try
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
Query = "UPDATE Table Set STATUS = ? WHERE AssetNo = " & Cursor1.GetInt("ASSETNO")
Starter.sqlBN.ExecNonQuery2(Query, Array As String("T1")
cpbIB.Value = I 'CustomProgressBar value
Next
Starter.sqlBN.TransactionSuccessful
Catch
Log(LastException.Message)
End Try
Starter.sqlBN.EndTransaction
Cursor1.Close