Add new row to XML

     Dim rowParent As DataRow

     Dim row As DataRow                    

     Dim dsXML as dataset 

      dsXML.ReadXml("test.xml")

      rowParent = dsXML.Tables("parent").Rows(0)

      row = dsXML.Tables("child").NewRow

      row("MATERIAL") = "ABC"

      row.SetParentRow(rowParent)

      dsXML.Tables("child").Rows.Add(row)