'---Filter für Artikelbezeichnung setzen------------------------------
Select Case True
    Case opbDBFST.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'FST*'")
    Case opbDBPOL.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'POL*'")
    Case opbDBWST.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'WST*'")
End Select

Private Sub CmdSQLlad_Click()
'---Variablen benennen-------------------------------------------------
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim LItem As ListItem
'---Variablen setzen---------------------------------------------------
Set db = OpenDatabase(OptionenFST.TextBoxSQLdat.Text & "\Borm_SQL.mdb")
'---Filter für Artikelbezeichnung setzen------------------------------
Select Case True
    Case opbDBFST.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'FST*'")
    Case opbDBPOL.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'POL*'")
    Case opbDBWST.Value
        Set rs = db.OpenRecordset("SELECT * FROM Artikelstamm WHERE PD_NUM LIKE" & _
          "'WST*'")
End Select
'---ListView Einstellungen----------------------------------------------
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .View = lvwReport
End With
'---Spaltendefinition -->  Variante 2 -----------------------------------
With ListView1.ColumnHeaders
    .Add , , "Artikelnummer", 60
    .Add , , "Breite", 40
    .Add , , "Stärke", 40
    .Add , , "Länge", 40
    .Add , , "Bezeichnung", 130
    .Add , , "EK-Preis", 40
    .Add , , "Gewicht", 40
End With
'---ListView mit Datenbankinformationen füllen---------------------------
rs.MoveFirst
Do Until rs.EOF
    Set LItem = ListView1.ListItems.Add()
    LItem.Text = (rs!PD_NUM)              'Artikelnummer
    LItem.SubItems(1) = (rs!M_Breite)     'Breite
    LItem.SubItems(2) = (rs!M_Dicke)      'Stärke
    LItem.SubItems(3) = (rs!M_Laenge)     'Länge
    LItem.SubItems(4) = (rs!PD_BEZ)       'Bezeichnung
    LItem.SubItems(5) = (rs!M_EK_Preis)   'EK-Preis
    LItem.SubItems(6) = (rs!M_Gewicht)    'Gewicht
    rs.MoveNext
Loop
rs.Close
'------------------------------------------------------------------------
End Sub

VG

Dirk