Dim expr = _
  From c In customers _
  From o In c.Orders _
  Join p In products _
    On o.IdProduct Equals p.IdProduct _
  Select o.Month, o.Shipped, p.IdProduct, p.Price
