'Namen auslesen
        Cmd = New OleDbCommand(comstr, Accessdb)
        Dr2 = Cmd.ExecuteReader
        k = 0
        Do While Dr2.Read
            temp1(k) = Dr2.Item(0)
            k = k + 1
        Loop
        'Gruppen auslesen
        Cmd = New OleDbCommand(comstr2, Accessdb)
        Dr2 = Cmd.ExecuteReader
        k = 0
        Do While Dr2.Read
            temp2(k) = Dr2.Item(0)
            k = k + 1
        Loop
        Dim NameColumn = New DataColumn("Name", GetType(String))
        Dim GruppeColumn = New DataColumn("Gruppe", GetType(Integer))
        dt.Columns.Add(NameColumn)
        dt.Columns.Add(GruppeColumn)
 
        Dim zeile As DataRow
        For i = 0 To k - 1
            zeile = dt.NewRow()
            zeile.Item("Name") = temp1(i)
            zeile.Item("Gruppe") = temp2(i)
            dt.Rows.Add(zeile)
        Next
        DS.Tables.Add(dt)
        DataGridView1.DataSource = DS
        DataGridView1.Refresh()