Dim dt As New DataTable("tab1")
        dt.Columns.Add("Col1", GetType(System.String))
        Dim dr As DataRow = dt.NewRow
        dr("Col1") = "üöäÜÖÄß"
        dt.Rows.Add(dr)
        Dim ds As New DataSet("data")
        ds.Tables.Add(dt)
 
        ds.WriteXml("C:\test.xml")
        ds = New DataSet
        ds.ReadXml("C:\test.xml")
        Debug.WriteLine(ds.Tables(0).Rows(0)("Col1").ToString())

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist