'Benannte Datatable mit Spaltenschema erstellen
Dim dtb As New DataTable("Spielstände")
 
With dtb.Columns
    For i As Integer = 1 To 5
        .Add("sumsp" & CStr(i), GetType(Decimal))
    Next i
    .Add("bock", GetType(Integer))
End With
 
'Werte in eine neue Datenzeile eintragen
dtb.Rows.Add(12.7, 13.9, 44.8, 95.4, 112.5, 66)
'noch ein Spielergebnis eintragen
dtb.Rows.Add(10.9, 24.9, 52.8, 195.4, 12.5, 23)
 
'Daten speichern
dtb.WriteXml("C:\daten\spielstand.xml", XmlWriteMode.WriteSchema)
 
dtb.Clear() 'Alle Daten löschen
 
'Daten wieder lesen
dtb.ReadXml("C:\daten\spielstand.xml")