Skrive til XML.

Hej eksperter!

Jeg har en xml fil som ser sådan ud:

<?xml version="1.0" standalone="yes"?>
<playlist>
  <trackList>
    <track>
      <title>Noget</title>
      <creator>Noget Andet</creator>
      <location>FinSang.mp3</location>
    </track>
  </trackList>

</playlist>

Når jeg så skal skrive til den, bruger jeg denne kode:

        Dim doc As XmlDocument = New XmlDocument
        doc.Load(My.Request.PhysicalApplicationPath & "/playlist.xml")

        Dim title As XmlNode = doc.CreateElement("title")
        title.AppendChild(doc.CreateTextNode("Flot Sang"))
        Dim creator As XmlNode = doc.CreateElement("creator")
        creator.AppendChild(doc.CreateTextNode("Godt Band"))
        Dim location As XmlNode = doc.CreateElement("location")
        location.AppendChild(doc.CreateTextNode("FlotSang.mp3"))
        Dim track As XmlNode = doc.CreateElement("track")
        track.AppendChild(title)
        track.AppendChild(creator)
        track.AppendChild(location)
        doc.DocumentElement.AppendChild(track)

        doc.Save(My.Request.PhysicalApplicationPath & "/playlist.xml")


Problemet er så, at den skriver det, men den skriver det ikke ind i mellem <tracklist> </tracklist> men kun i mellem <playlist> </playlist>

Hvordan får jeg den til at skrive det ind i mellem <tracklist> </tracklist>??

På forhånd tak.
Stefan