Dim Filter As String
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim LItem As ListItem
 
Filter = TB_Filter.Text
Filter = Replace(Filter, "*", "%")
 
If Filter = "" Then GoTo MyErrorHandler
 
With Cn
    .CursorLocation = adUseClient
    .Provider = .....
    .ConnectionString = .....
    .Open
End With
 
With Rs
    .CursorType = adOpenForwardOnly
    .LockType = adLockReadOnly
    Select Case ComboBox1.ListIndex
        Case 0
            .Open "SELECT * FROM prod_definition WHERE PD_NUM LIKE '" & Filter _
              & "'", Cn
        Case 1
            .......
    End Select
End With
 
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .View = lvwReport
    .SmallIcons = ImageList1
End With
 
With ListView1.ColumnHeaders
    .Add , , "DWG", 13                                  'DWG / Zeichnung 
    ' vorhanden
    .Add , , "PDF", 13                                  'PDF / Dokument 
    ' vorhanden
    .Add , , "Artikelnummer", 70                        'Artikelnummer
    ....
End With
 
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
    .....

VG

Dirk