Listing 1: Modifying the Load Event
‘ Begin Callout A
Private AdvWorksDC As UsingLINQ.AdventureWorks = _
New AdventureWorks(My.Settings.AdvWorksDB)
Private Department As HumanResources_Department
‘ End Callout A
‘ Begin Callout B
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
   ButtonAdd.Enabled = False
   ButtonEdit.Enabled = False
   ButtonDelete.Enabled = False
   ' Query that doesn't order the columns, but does a join and includes a Where clause
   Dim DS = From product In AdvWorksDC.Production_Product _
      Join productInventory In AdvWorksDC.Production_ProductInventory _
      On product.ProductID Equals productInventory.ProductID _
      Select product = product.Name, product.Color, _ 
                       productInventory.Quantity _
      Where Color = "Black" And Quantity > 100

      Me.DataGridView1.DataSource = DS
End Sub
‘ End CalloutB