XML LINQ VB.Net

Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
    Sub Main()
        Dim xml As XDocument = XDocument.Load("People.xml")
        Dim query = From p In xml.Elements("people").Elements("person") _
            Where p.Element("id").Value = 1 _
            Select p
        For Each record In query
            Console.WriteLine("Person: {0} {1}", _
               record.Element("firstname").Value, _
               record.Element("lastname").Value)
        Next
    End Sub
End Module