Dim expr = Aggregate p In ( _
  From c In customers _
  From o In c.Orders _
    Join p In products _
    On o.IdProduct Equals p.IdProduct _
  Select p) _
  Into Average(p.Price)
