Visual Basic: Manage the order of update, delete and insert queries

'http://msdn.microsoft.com/en-us/library/4esb49b4%28v=VS.80%29.aspx
Me.Validate()
Me.OrdersBindingSource.EndEdit()
Me.CustomersBindingSource.EndEdit()

Dim deletedOrders As NorthwindDataSet.OrdersDataTable = CType( _
    NorthwindDataSet.Orders.GetChanges(Data.DataRowState.Deleted), NorthwindDataSet.OrdersDataTable)

Dim newOrders As NorthwindDataSet.OrdersDataTable = CType( _
    NorthwindDataSet.Orders.GetChanges(Data.DataRowState.Added), NorthwindDataSet.OrdersDataTable)

Dim modifiedOrders As NorthwindDataSet.OrdersDataTable = CType( _
    NorthwindDataSet.Orders.GetChanges(Data.DataRowState.Modified), NorthwindDataSet.OrdersDataTable)


Try
    ' Remove all deleted orders from the Orders table.
    If Not deletedOrders Is Nothing Then
        OrdersTableAdapter.Update(deletedOrders)
    End If

    ' Update the Customers table.
    CustomersTableAdapter.Update(NorthwindDataSet.Customers)

    ' Add new orders to the Orders table.
    If Not newOrders Is Nothing Then
        OrdersTableAdapter.Update(newOrders)
    End If

    ' Update all modified Orders.
    If Not modifiedOrders Is Nothing Then
        OrdersTableAdapter.Update(modifiedOrders)
    End If

    NorthwindDataSet.AcceptChanges()

Catch ex As Exception
    MsgBox("Update failed")

Finally
    If Not deletedOrders Is Nothing Then
        deletedOrders.Dispose()
    End If

    If Not newOrders Is Nothing Then
        newOrders.Dispose()
    End If

    If Not modifiedOrders Is Nothing Then
        modifiedOrders.Dispose()
    End If
End Try