'---ComboBox füllen-------------------------------------------------------
Dim a(6) As String
Dim i As Integer
a(1) = ListView1.ColumnHeaders(3)
a(2) = ListView1.ColumnHeaders(4)
a(3) = ListView1.ColumnHeaders(5)
a(4) = ListView1.ColumnHeaders(14)
a(5) = ListView1.ColumnHeaders(15)
a(6) = ListView1.ColumnHeaders(16)
 
For i = 1 To UBound(a)
    ComboBox1.AddItem a(i)
Next i
ComboBox1.Text = ComboBox1.List(0)

Filter = TB_Filter.Text
Filter = Replace(Filter, "*", "%")
 
'---Filter benutzen und suchen in------------------------------
With Rs
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    Select Case ComboBox1.ListIndex
        Case 0
            .Open "SELECT * FROM prod_definition WHERE PD_NUM LIKE '" & Filter _
              & "'", Cn
        Case 1
            .Open "SELECT * FROM prod_definition WHERE PD_BEZ LIKE '" & Filter _
              & "'", Cn
        Case 2
            .Open "SELECT * FROM prod_definition WHERE M_Bestelltext LIKE '" & _
              Filter & "'", Cn
    End Select
End With
 
'---ListView Einstellungen----------------------------------------------
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .View = lvwReport
    .SmallIcons = ImageList1
End With
'---Spaltendefinition---------------------------------------------------
With ListView1.ColumnHeaders
    .Add , , "DWG", 13                                  'DWG / Zeichnung 
    ' vorhanden
    .Add , , "PDF", 13                                  'PDF / Dokument 
    ' vorhanden
    .Add , , "Artikelnummer", 70                        'Artikelnummer
    .Add , , "Bezeichnung", 130                         'Bezeichnung
    .Add , , "Bestelltext", 150                         'Bestelltext
    .Add , , "Breite", 40                               'Breite
    .Add , , "Stärke", 40                               'Stärke
    .Add , , "Länge", 40                                'Länge
    .Add , , "EK-Preis", 40                             'EK-Preis
    .Add , , "Gewicht", 40                              'Gewicht
    .Add , , "Einheit", 30                              'Bestelleinheit
    .Add , , "DWG - Pfad", 150                          'DWG - Verzeichnis
    .Add , , "PDF - Pfad", 150                          'PDF - Verzeichnis
    .Add , , "Lieferant", 40                            'Lieferant
    .Add , , "Artikelnummer Lieferant", 40              'Artikelnummer Lieferant
    .Add , , "Materialsortierung", 40                   'Materialsortierung
End With
'---ListView mit Datenbankinformationen füllen---------------------------
Rs.MoveFirst
Do Until Rs.EOF
    Set LItem = ListView1.ListItems.Add()
    LItem.Text = ""                                     'DWG / Zeichnung 
    ' vorhanden
    LItem.SubItems(1) = ""                              'PDF / Dokument 
    ' vorhanden
    LItem.SubItems(2) = (Rs!PD_NUM & "")                'Artikelnummer
    LItem.SubItems(3) = (Rs!PD_BEZ & "")                'Bezeichnung
    LItem.SubItems(4) = (Rs!M_Bestelltext & "")         'Bestelltext
    LItem.SubItems(5) = (Rs!M_Breite & "")              'Breite
    LItem.SubItems(6) = (Rs!M_Dicke & "")               'Stärke
    LItem.SubItems(7) = (Rs!M_Laenge & "")              'Länge
    LItem.SubItems(8) = (Rs!M_EK_Preis & "")            'EK-Preis
    LItem.SubItems(9) = (Rs!Gewicht & "")               'Gewicht
    LItem.SubItems(10) = (Rs!M_Best_Einheit_ID & "")    'Bestelleinheit
    LItem.SubItems(11) = (Rs!M_ZNAME_PLINE & "")        'DWG - Verzeichnis
    If Len(LItem.SubItems(11)) > 0 Then
        LItem.SmallIcon = 14
    End If
    LItem.SubItems(12) = (Rs!M_ZEICHNUNGSNAME & "")     'PDF - Verzeichnis
    If Len(LItem.SubItems(12)) > 0 Then
        LItem.ListSubItems.Item(1).ReportIcon = 15
    End If
    LItem.SubItems(13) = (Rs!M_ADR_ID & "")             'Lieferant
    LItem.SubItems(14) = (Rs!M_LIEF_PD_NUM & "")        'Artikelnummer Lieferant
    LItem.SubItems(15) = (Rs!MATSORT_ID & "")           'Materialsortierung
    Rs.MoveNext
Loop
Rs.Close
End Sub
'------------------------------------------------------------------------

VG

Dirk