Dim categoriesAndProducts = _
  From c In categories Join p In products _
            On p.IdCategory Equals c.IdCategory _
  Select c.IdCategory, CategoryName = c.Name, Product = p.Description
