Listing 2: Implementing the ButtonLoad_Click, BindGrid, and ButtonAdd_Click Methods
Private Sub ButtonLoad_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles ButtonLoad.Click
    'Add a Where clause and a join
    BindGrid()
    If Department Is Nothing Then
        ButtonAdd.Enabled = True
    End If
End Sub

Private Sub BindGrid()
    Dim DS = From department In AdvWorksDC.HumanResources_Department _
    Select Name = department.Name, department.GroupName _
    Order By GroupName

    Me.DataGridView1.DataSource = DS
End Sub

Private Sub ButtonAdd_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles ButtonAdd.Click
    Department = New HumanResources_Department With _
         {.Name = "Bike Computers", _
          .GroupName = "Development and Research", _
          .ModifiedDate = Now()}
    AdvWorksDC.HumanResources_Department.InsertOnSubmit(Department)
    AdvWorksDC.SubmitChanges()
    BindGrid()
    ButtonEdit.Enabled = True
    ButtonDelete.Enabled = True
    ButtonAdd.Enabled = False
End Sub