Dim dt As New DataTable
        Dim dt2 As New DataTable
        Dim dr As DataRow
        DataGridView1.DataSource = Nothing
 
        Dim test As String
 
        test = Me.PlätzeTableAdapter.Fill(Me.Datenbank1DataSet2.Plätze)
        Dim test2 As String
 
 
 
        Dim mTage As String
 
        '  mTage = Date.DaysInMonth(Date.Now.Year, Date.Now.Month)
        mTage = Date.DaysInMonth(Me.DateTimePicker1.Value.Year, _
          Me.DateTimePicker1.Value.Month)
 
 
 
 
        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()