xmltextreader problem

Har en enkel xml fil som ser ut ungefär så här:

<root>
   <row>
      <a>grr</a>
      <b>grrgrr</b>
      <c></c>
      <d>Ojojoj</d>
      <e>2003-006-09</e>
      <f>hihihi</f>
   </row>
</root>

Det kan finnas 0..* antal row.

Sen när jag skall läsa upp detta så har jag nedan kod som är tänkt att för varje row så skall den läsa in värderna från a, b,c,d,e i xml filen till a,b,c,d,e variablerna och när en rad är läst så skall den lägga in värderna i classen custInfo i en ny post i en arraylist. Och sen samma sak för nästa row om det finns någon.

While xdrData.Read()
   If xdrData.NodeType = XmlNodeType.Element Then
     Dim a, b, c, d, e As String
     Select Case xdrData.Name
        Case "a"
           a = xdrData.Value
        Case "b"
           b = xdrData.Value
        Case "c"
           c = xdrData.Value
        Case "d"
           d = xdrData.Value
        Case "e"
           e = xdrData.Value
      End Select
      arrData.Add(New custInfo(a, b, c, d, e))
   End If
End While

Men inga värden går in så vad är fel, väldigt osäker på om iterationen är riktig. Eller rättare sagt, den är inte riktig, så hur skall den se ut?