...............................
        Dim i As Integer
 
        dt.Columns.Add(New DataColumn("Plätze"))
 
        For i = 1 To mTage
            dt.Columns.Add(New DataColumn(i.ToString(), _
            GetType(String)))
 
        Next i
 
        Dim rows As Integer = test
 
        dt2 = Datenbank1DataSet2.Tables("Plätze")
 
        For Each dr In dt2.Rows
            test2 = dr("Nummer").ToString
            dr = dt.NewRow
            dt.Rows.Add(test2)
        Next
 
 
 
  DataGridView1.DataSource = dt
 
        Dim s As DataGridViewColumn
        For Each s In DataGridView1.Columns
            s.SortMode = DataGridViewColumnSortMode.NotSortable
        Next s
 
        DataGridView1.AutoResizeColumns()