Private Sub cmdDBLoad_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDBLoad.Click
 
        Dim Filter As String
        Filter = Replace(TBFilter.Text, "*", "%")
 
        Const CONNSTR As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA" & _
          "Source=Borm_SQL.mdb"
        Dim SQL As String
 
        Select Case CB_Auswahl.Text
            Case "Artikelnummer Hoffmann"
                SQL = "SELECT PROD_DEFINITION.PD_NUM, PROD_DEFINITION.PD_BEZ" & _
                  ".....
            Case "Materialsort.-Nr"
                SQL = "SELECT PROD_DEFINITION.PD_NUM, PROD_DEFINITION.PD_BEZ" & _
                  ".....
...
 
        With DataGridView1
            '--Spaltenköpfe------------------
            .Columns.Clear()
...
            .ReadOnly = True
        End With
 
       Dim conn As New OleDbConnection(CONNSTR)
        Dim cmd As New OleDbCommand(SQL, conn)
        Dim dr As OleDbDataReader
 
        Try
            conn.Open()
            dr = cmd.ExecuteReader()
 
            Do While dr.Read()
                DataGridView1.Rows.Add("", _
                                       "", _
                                       "", _
                                       (dr("PD_NUM").ToString()), _
                                       (dr("MS_SORTIERUNG").ToString()), _
                                       (dr("M_Bestelltext").ToString()), _
                                       (dr("M_Breite").ToString()), _
                                       (dr("M_Dicke").ToString()), _
                                       (dr("M_WANDUNG").ToString()), _
                                       (dr("M_Laenge").ToString()), _
                                       (dr("M_LIEF_PD_NUM").ToString()), _
                                       (dr("M_ADR_ID").ToString()), _
                                       (dr("M_EK_Preis").ToString()), _
                                       (dr("Gewicht").ToString()), _
                                       (dr("M_Best_Einheit_ID").ToString()), _
                                       (dr("M_ZNAME_PLINE").ToString()), _
                                       (dr("M_ZEICHNUNGSNAME").ToString()), _
                                       (dr("PD_BEZ").ToString()), _
                                       (dr("MATSORT_ID").ToString()))
            Loop
            dr.Close()
...
...
 
        Catch ex As Autodesk.AutoCAD.Runtime.Exception
            MessageBox.Show(ex.Message)
            Return
        Finally
            conn.Close()
        End Try
 
        DataGridView1.Sort(DataGridView1.Columns(15), _
          System.ComponentModel.ListSortDirection.Descending)
    End Sub

mfg.

Dirk