Dim r(50000) 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
            dt.Columns.Add(New DataColumn("Spalte" + i.ToString, GetType( _
              String)))
        Next
        For a As Integer = 0 To 50000
            r(a) = dt.NewRow
            For i As Integer = 0 To dt.Columns.Count - 1
                r(a)(i) = New String(New Random(a).Next.ToString)
            Next
            Me.ProgressBar1.PerformStep()
        Next
        dt.Rows.Add(New Object() {r})
        ds.Tables.Add(dt)
        ds.WriteXml("C:\data.xml", XmlWriteMode.WriteSchema)