Inserimento Dataset new row transazione

notare la seguente frase: dsAdoSbs.Customers.NewRow
aggiunge un record alla tabella Customers contenuta nel dataset DsAdoSbs


Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click
Dim trnNew As SqlTransaction

AddRows("AAA" & Convert.ToString(System.DateTime.Now.Second))

cnAdoSbs.Open()
trnNew = cnAdoSbs.BeginTransaction()
daCustomers.InsertCommand.Transaction = trnNew
daOrders.InsertCommand.Transaction = trnNew
Try
daCustomers.Update(dsAdoSbs.Customers)
daOrders.Update(dsAdoSbs.Orders)
trnNew.Commit()
MessageBox.Show("Transaction Committed")
Catch ex As SqlException
trnNew.Rollback()
MessageBox.Show(ex.Message.ToString())
Finally
cnAdoSbs.Close()
End Try
End Sub


Sub AddRows(ByVal newCust As String)
Dim newRow As System.Data.DataRow

newRow = dsAdoSbs.Customers.NewRow
With newRow
.Item("CompanyName") = "A New Customer Record"
.Item("CustomerID") = newCust
End With
dsAdoSbs.Customers.Rows.Add(newRow)

newRow = dsAdoSbs.Orders.NewRow
With newRow
.Item("CustomerID") = newCust
.Item("OrderDate") = Today()
End With
dsAdoSbs.Orders.Rows.Add(newRow)
End Sub