Dim dt As New DataTable("Mathe")
    Private bs As New BindingSource(dt, "")
    Private dgv As New DataGridView With {.Dock = DockStyle.Fill, .DataSource = _
      bs}
    Const DatasetName As String = "c:\test.xml" 
 
    Friend ReadOnly Property DatasetFileName As String
        Get
            Return System.IO.Path.Combine(Application.CommonAppDataPath, _
              DatasetName)
        End Get
    End Property
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Me.Controls.AddRange(New Control() {dgv})
 
        With (dt.Columns)
            .Add("Zahl1", GetType(Integer))
            .Add("Zahl2", GetType(Integer))
            .Add("Ergebniss", GetType(Integer))
            .Add("richtig", GetType(Integer))
            .Add("falsch", GetType(Integer))
        End With
        If IO.File.Exists(DatasetName) Then dt.ReadXml(DatasetName)
 
    End Sub
 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
   FormClosingEventArgs) Handles Me.FormClosing
        dt.WriteXml(DatasetName)
    End Sub

 
Me.Controls.AddRange(New Control() {dgv})
        dim s       
        s=23452
        With (dt.Columns)
            .Add("Zahl1", s)
            .Add("Zahl2", s)
            .Add("Ergebniss", s)
            .Add("richtig", s)
            .Add("falsch", s)
        End With

    Private rnd As New Random
    Private dt As New DataTable
 
    Private Sub AddEntry(ByVal zahl1 As Integer, ByVal zahl2 As Integer, ByVal _
      ergebnis As Integer, ByVal richtig As Integer, ByVal falsch As Integer)
        Dim row As DataRow = dt.NewRow
        row("Zahl1") = zahl1
        row("Zahl2") = zahl2
        row("Ergebniss") = ergebnis
        row("richtig") = richtig
        row("falsch") = falsch
        dt.Rows.Add(row)
    End Sub
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
 
        With (dt.Columns)
            .Add("Zahl1", GetType(Integer))
            .Add("Zahl2", GetType(Integer))
            .Add("Ergebniss", GetType(Integer))
            .Add("richtig", GetType(Integer))
            .Add("falsch", GetType(Integer))
        End With
 
        For i As Integer = 0 To 100
            AddEntry(rnd.Next(1, 100), rnd.Next(1, 100), rnd.Next(1, 100), _
              rnd.Next(1, 100), rnd.Next(1, 100))
        Next
    End Sub