I keep getting a system error in this block

VB Code:
  1. ' read the xml data and validate
  2.             Dim read As New Xml.XmlTextReader(.FileName)
  3.             Dim readVal As New Xml.XmlValidatingReader(read)
  4.             While readVal.Read
  5.                 If readVal.NodeType = System.Xml.XmlNodeType.Element Then
  6.                     If readVal.Name = "Media" Then
  7.                         Media = New DjData
  8.                     End If
  9.                     readVal.MoveToNextAttribute()
  10.                     If readVal.Name = "Year" Then
  11.                         Media.Year = readVal.ReadString.ToString
  12.                     ElseIf readVal.Name = "Author" Then
  13.                         Media.Author = readVal.ReadString.ToString
  14.                     ElseIf readVal.Name = "Title" Then
  15.                         Media.Title = readVal.ReadString.ToString
  16.                     ElseIf readVal.Name = "BPM" Then
  17.                         Media.BPM = readVal.ReadString.ToString
  18.                     ElseIf readVal.Name = "Media Type" Then
  19.                         Media.MediaType = readVal.ReadString.ToString
  20.                         mediaArray.Add(Media)
  21.                     End If
  22.                 End If
  23.             End While
  24.             readVal.Close() '' close reader
  25.             read.Close()
  26.         End With
the error occurs in the 4th line( while readVal.read) Any help would be great.