 Dim xmlDoc As New XmlDocument
        xmlDoc.Load("c:\5.xml")
        Dim ds As New DataSet
        ds.ReadXml(New XmlNodeReader(xmlDoc))