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