Dim documento As New XmlDocument
        Dim nodoPrincipal As XmlNode
        Dim nodoSAs XmlNode

        nodoPrincipal = documento.CreateElement("Actualizacion")
        nodoSociedad = documento.CreateElement("Sociedades")

        Dim arr_s() As String = Split(mf_s(dr.Item("act_idS")), "#")

        For Each Elemento As String In arr_s
               nodoS = documento.CreateElement("Datos")
               nodoS.InnerText = Elemento
               nodoPrincipal.AppendChild(nodoS)
               documento.AppendChild(nodoPrincipal)
        Next
        

miDataSet.merge(otroDataset)

miDataSet.WriteXml("C:\Hola.xml")
docXml.Load("C:\Hola.xml")

Dim docXml As XmlDataDocument = New XmlDataDocument(miDataSet)