ajoutter un noeud dans un xml existant

Bonjour ,
j'ai un pb pour l'ajout d'un noeud , a une position donnée dans un fichier xml existant .

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim lecteur_xml As XmlTextReader = New XmlTextReader(".\\appconfig2.xml")
        'Dim noeud_recherche As XmlNode
        'Dim nom_noeud_actuel As String
        Dim noeud_actuel As Xml.XmlNode
        Dim documment_xml As New Xml.XmlDataDocument
        documment_xml.Load(".\\appconfig2.xml")
 
 
 
        Dim fils As XmlElement = documment_xml.CreateElement("fils")
 
 
        While lecteur_xml.Read()
 
 
            If (lecteur_xml.Name = "nom") Then
 
                noeud_actuel = documment_xml.ReadNode(lecteur_xml)
                ' ajoutter un noeud fils au noeud "prenom"
                ' sauvegarder les modifications apportés au fichier XML
 
                MessageBox.Show(noeud_actuel.InnerText)
            End If
 
 
        End While
 
        Dim noeud_racine As Xml.XmlNode = documment_xml.DocumentElement
        'noeud_racine.AppendChild(fils)
        Dim docFrag As XmlDocumentFragment = documment_xml.CreateDocumentFragment()
        docFrag.InnerXml = "<Inserted>" + " <NewData>Inserted Data</NewData>" + "</Inserted>"
        noeud_actuel.AppendChild(docFrag)
 
 
 
 
        lecteur_xml.Close()
 
        documment_xml.Save(".\\appconfig3.xml")

merci