XML reader in vb.net problem

I keep getting a system error in this block

VB Code:

' read the xml data and validate
            Dim read As New Xml.XmlTextReader(.FileName)
            Dim readVal As New Xml.XmlValidatingReader(read)
            While readVal.Read
                If readVal.NodeType = System.Xml.XmlNodeType.Element Then
                    If readVal.Name = "Media" Then
                        Media = New DjData
                    End If
                    readVal.MoveToNextAttribute()
                    If readVal.Name = "Year" Then
                        Media.Year = readVal.ReadString.ToString
                    ElseIf readVal.Name = "Author" Then
                        Media.Author = readVal.ReadString.ToString
                    ElseIf readVal.Name = "Title" Then
                        Media.Title = readVal.ReadString.ToString
                    ElseIf readVal.Name = "BPM" Then
                        Media.BPM = readVal.ReadString.ToString
                    ElseIf readVal.Name = "Media Type" Then
                        Media.MediaType = readVal.ReadString.ToString
                        mediaArray.Add(Media)
                    End If
                End If
            End While
            readVal.Close() '' close reader
            read.Close()
        End With

the error occurs in the 4th line( while readVal.read) Any help would be great.