' FÜLLEN DES DT mit 50000 DS
        Dim r As DataRow
        Dim dt As DataTable = New DataTable
        Dim ds As DataSet = New DataSet
        Me.ProgressBar1.Maximum = 50000
        Me.ProgressBar1.Step = 1
        For i As Integer = 0 To 5 ' 5 Spaletn anlegen
            dt.Columns.Add(New DataColumn("Spalte" + i.ToString, GetType( _
              String)))
        Next
        For a As Integer = 0 To 50000
            r = dt.NewRow
            For i As Integer = 0 To dt.Columns.Count - 1
                r(i) = New String(New Random(a).Next.ToString)
            Next
            Me.ProgressBar1.PerformStep()
            dt.Rows.Add(r)
        Next
        ds.Tables.Add(dt)
        ds.WriteXml("C:\data.xml", XmlWriteMode.WriteSchema)

' Wenn die Datei Data.xml existiert, dann einlesen
    If IO.File.Exists("C:\data.xml") Then
            Dim ds As DataSet = New DataSet
            ds.ReadXml("C:\data.xml")
            Me.DataGrid1.DataSource = ds.Tables(0)
        End If