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")
Set rs = db.OpenRecordset("Artikelstamm")
'---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
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
    rs.MoveNext
Loop
rs.Close
'------------------------------------------------------------------------
End Sub

VG

Dirk