XDocument: Bepaalde gegevens ophalen

[Pororoca]

Dag mensen,

Ik heb het volgende XML bestand:

<?xml version="1.0"?>
<listitems>
  <lijsitem itemid="1" compid="15">
    <item_id>1</item_id>
    <comp_id>15</comp_id>
    <next_Id>19</next_Id>
    <prioriteit>0</prioriteit>
    <label>Positief ....</label>
  </lijsitem>
  <lijsitem itemid="2" compid="15">
    <item_id>2</item_id>
    <comp_id>15</comp_id>
    <next_Id>10</next_Id>
    <prioriteit>1</prioriteit>
    <label>Terugbellen</label>
  </lijsitem>
  <lijsitem itemid="3" compid="15">
    <item_id>3</item_id>
    <comp_id>15</comp_id>
    <next_Id>12</next_Id>
    <prioriteit>2</prioriteit>
    <label>Voicemail</label>
  </lijsitem>
  <lijsitem itemid="4" compid="15">
    <item_id>4</item_id>
    <comp_id>15</comp_id>
    <next_Id>14</next_Id>
    <prioriteit>3</prioriteit>
    <label>Negatief</label>
  </lijsitem>
  <lijsitem itemid="4" compid="16">
    <item_id>4</item_id>
    <comp_id>16</comp_id>
    <next_Id>14</next_Id>
    <prioriteit>3</prioriteit>
    <label>Anders</label>
  </lijsitem>
</listitems>

Zoals je kunt zien zijn er 4 elementen met compid=15 en 1 met 16. Nou wil ik de labels zien waar compid=16.

Ik ben al wezen zoeken en ik kwam dit tegen:

Dim root As XElement = XElement.Load("data\file.xml")
Dim query = From p In root.Elements("listitems").Elements("lijsitem") _
                   Select p
For Each record In query
  Debug.Print(record.Element("label").Value)
Next

Ik krijg er steeds maar niets uit. Ik heb ook andere methodes geprobeerd, maar ook dat werkt niet.

Iemand een idee?

Alvast bedankt!