Public Class Form1
 
    Dim dtPunkte As New DataTable
    Dim Dateipfad As String = System.IO.Path.Combine( _
      Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung")
    Dim PunkteXML As String = System.IO.Path.Combine( _
    Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung", _
    "punkte.xml")
 
    Private Sub Form1_FormClosing(sender As Object, e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        DataGridView1.EndEdit()
        dtPunkte.AcceptChanges()
        dtPunkte.WriteXml(PunkteXML)
    End Sub
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        dtPunkteInitialisieren()
 
        If Not System.IO.Directory.Exists(Dateipfad) Then
            System.IO.Directory.CreateDirectory(Dateipfad)
            dtPunkteFuellen()
        Else
            dtPunkte.ReadXml(PunkteXML)
        End If
 
        DataGridView1.DataSource = dtPunkte
 
    End Sub
 
    Private Sub dtPunkteInitialisieren()
        With dtPunkte
            Dim IDCol As DataColumn = dtPunkte.Columns.Add("ID", Type.GetType( _
              "System.Int32"))
            IDCol.AllowDBNull = False
            IDCol.Unique = True
            IDCol.AutoIncrement = True
 
            .Columns.Add("Name", Type.GetType("System.String"))
            .Columns.Add("Punkte", Type.GetType("System.Int32"))
 
            .TableName = "Punktetabelle"
 
            Dim primaryKey(1) As DataColumn
            primaryKey(1) = .Columns("ID")
            .PrimaryKey = primaryKey
 
        End With
    End Sub
 
    Private Sub dtPunkteFuellen()
 
        Dim i As Integer = 0
 
        Dim SpielerUndPunkte As String = _
          "hans=1,peter=2,ute=7,steffi=11,otte=5,han=2"
 
        Dim arrSpieler() As String = SpielerUndPunkte.Split(",")
 
        For i = 0 To UBound(arrSpieler)
            Dim arr() As String = arrSpieler(i).Split("=")
            Dim newRow As DataRow = dtPunkte.NewRow
            newRow("ID") = i
            newRow("Name") = arr(0)
            newRow("Punkte") = arr(1)
            dtPunkte.Rows.Add(newRow)
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
        dtPunkte.WriteXml(PunkteXML)
    End Sub
End Class

EALA FREYA FRESENA