Private Sub ttt()
        Dim temp1(5000) As String
        Dim temp2(5000) As Integer
 
        Dim comstr As String = "Select type From CValues"
        Dim comstr2 As String = "Select id From CValues"
        Dim AccessDB As OleDbConnection = conn
        Dim cmd As OleDbCommand
        Dim dr2 As OleDbDataReader
        Dim dt As New DataTable
        Dim DS As New DataSet
 
 
        Dim i, k As Integer
        Try
            'Namen auslesen
            cmd = New OleDbCommand(comstr, AccessDB)
            AccessDB.Open()
            dr2 = cmd.ExecuteReader
            k = 0
            Do While dr2.Read
                If dr2.Item(0) Is DBNull.Value Then
                    temp1(k) = String.Empty
                Else
                    temp1(k) = dr2.Item(0)
                End If
                k = k + 1
            Loop
            AccessDB.Close()
            AccessDB.Open()
            'Gruppen auslesen
            cmd = New OleDbCommand(comstr2, AccessDB)
            dr2 = cmd.ExecuteReader
            k = 0
            Do While dr2.Read
                If dr2.Item(0) Is DBNull.Value Then
                    temp2(k) = 0
                Else
                    temp2(k) = dr2.Item(0)
                End If
                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)
            DataGrid1.DataSource = DS
            'DataGridView1.Refresh()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            AccessDB.Close()
        End Try
    End Sub

    Private Sub ttt1()
        Dim comstr As String = "Select type, id From CValues"
        Dim AccessDB As OleDbConnection = conn
        Dim da As New OleDbDataAdapter(comstr, AccessDB)
        Dim DS As New DataSet
 
        Try
            da.Fill(DS)
            DataGrid1.DataSource = DS
          Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist