Dim ProdName = From prod In psolData.Products Where prod.ProdName.Equals(From test In psolData.Products Where test.ProdNo = cells(2) Select test.ProdName) Select prod.ProdName