Dim duplicatedProduct = From product In psolData.Products Where product.ProdName.Equals(From test In psolData.Products Where (test.ProdNo = cells(2).ToString().Trim() And From test2 In deliverySuppliers Where test2.DisplayName.Equals(cells(1).ToString()) Select test) Select product