Listing 3: Updating a Row
Private Sub ButtonEdit_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles ButtonEdit.Click
    Department.Name = "Fitness Computers"
    AdvWorksDC.SubmitChanges()
    BindGrid()
    ButtonEdit.Enabled = False
End Sub

Private Sub ButtonDelete_Click(ByVal sender As System.Object, _
           ByVal e As System.EventArgs) Handles ButtonDelete.Click
    ' These two lines of code bypass a concurrency check which isn't working as expected.
    AdvWorksDC = New AdventureWorks(My.Settings.AdvWorksDB)
    AdvWorksDC.HumanResources_Department.Attach(Department, False)

    AdvWorksDC.HumanResources_Department.DeleteOnSubmit(Department)
    AdvWorksDC.SubmitChanges()
    Department = Nothing
    BindGrid()
    ButtonAdd.Enabled = True
    ButtonEdit.Enabled = False
    ButtonDelete.Enabled = False
End Sub