Dim query = _
    From customer In customers _
    From order In orders _
    Where customer.CustomerID = order.Customer.CustomerID _
    And order.OrderDate <=  dtOrderDate _
    And order.IsOpen = True _
    Select New With _
    { _
        CustomerID = customer.CustomerID, _
        OrderID = order.SalesOrderID, _
        Total = order.TotalDue _
    }