XML LINQ VB.Net

Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
    Sub Main()
        Dim xml As XElement = XElement.Load("People.xml")
        xml.AddFirst(New XElement("person", _
                        New XElement("id", 5), _
                        New XElement("firstname", "Tom"), _
                        New XElement("lastname", "Cruise"), _
                        New XElement("idrole", 1)))
        Console.WriteLine(xml)
    End Sub
End Module