or
Dim idordine As String = DirectCast(testGrid.SelectedItem, Orders).OrderIDDim query = From employee In employees Join order In orders On employee.EmployeeID = order.EmployeeID Select New With { _ .EmployeeName = employee.LastName, _ .OrderName = order.ShipName, _ .OrderDate = order.OrderDate _}testGrid.ItemsSource = query Me.Griglia.ItemsSource = qry