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

For Each item In categoriesAndProducts
  Console.WriteLine(item)
Next
