Public Sub TableAdd()
 
        Dim xmlfile As String = "G:\daten\xml_Dataset.xml"
 
        'Ein Dataset mit einer Tabelle (10 Datensätze) erstellen
        Dim ds As New DataSet
        Dim dt As New DataTable With {.TableName = "Tab1"}
        dt.Columns.Add("Sp1", GetType(Integer))
        For i As Integer = 1 To 10
            dt.Rows.Add(i)
        Next i
        ds.Tables.Add(dt)
 
        'Dataset speichern
        ds.WriteXml(xmlfile, XmlWriteMode.WriteSchema)
 
        'Neues Dataset erstellen und mit gespeicherten 
        'Daten und Schema füllen
        Dim ds2 As New DataSet
        ds2.ReadXml(xmlfile, XmlReadMode.ReadSchema)
 
        'eine weitere Tabelle erstellen 
        'und in das Dataset einfügen
        Dim dt2 As New DataTable With {.TableName = "Tab2"}
        dt2.Columns.Add("Tab2_Sp1", GetType(Integer))
        For i As Integer = 1 To 20
            dt2.Rows.Add(10 - i)
        Next i
 
        'Dataset jetzt mit 2 Tabellen speichern 
        ds2.Tables.Add(dt2)
        ds2.WriteXml(xmlfile, XmlWriteMode.WriteSchema)
 
        'Daten und Schema im ersten Dataset löschen und laden
        ds.Tables.Clear()
        ds.ReadXml(xmlfile, XmlReadMode.ReadSchema)
 
    End Sub