Dim ordersQuery = _
  From c In customers, _
            o In c.Orders _
  Where o.EuroAmount > 200 _
  Select c.Name, o.IdOrder, o.EuroAmount
