[Resolvido] Add XML

[jviana]

Boas, quando adiciono uma novo item ao meu arquivo .xml, ele não me adiciona e não sei porque.

Código que uso para criar o arquivo.

   Sub pastaxml()
    System.IO.Directory.CreateDirectory(pasta)
    Dim xmlw As New XmlTextWriter(bdFile, System.Text.Encoding.UTF8)
    xmlw.Formatting = Formatting.Indented
    xmlw.WriteStartDocument()
    xmlw.WriteStartElement("musicas")
    xmlw.WriteEndElement()
    xmlw.WriteEndDocument()
    xmlw.Flush()
    xmlw.Close()
   End Sub

Código que uso para adicionar o novo item:

Form1.numero = Form1.numero + 1
	    nome = TextBox1.Text
	    compositor = TextBox2.Text
	    prgutilizado = TextBox3.Text
	    ano = TextBox4.Text
	    arranjo = TextBox5.Text
	    tipo = ComboBox1.Text
	    ficheiro = TextBox7.Text
	    pdf = TextBox7.Text
	    Dim xDoc = XDocument.Load(Form1.bdFile)
	    Dim parent = xDoc.<musicas>.FirstOrDefault()
	    Dim element = <musicas id=<%= numero %> nome=<%= nome %> compositor=<%= compositor %> programautilizado=<%= prgutilizado %> ano=<%= ano %> arranjo=<%= arranjo %> tipo=<%= arranjo %> ficheiro=<%= ficheiro %> pdf=<%= pdf %>/>
	    parent.Add(element)

Alguém me pode diz o que estou a fazer de errado?

Obrigado

[jviana]

xDoc.Save(bdfile)

Faltava isto, obrigado pela ajuda