Private Sub CmdSQLlad_Click()
'###---Datenbanktest---DAO----------
Dim dbFilename As String
Dim dbTable As String
 
dbFilename = OptionenFST.TextBoxSQLdat.Text & "\Borm_SQL.mdb"
dbTable = "Artikelstamm"
 
  Dim Db As DAO.Database
  Dim oRecordset As DAO.Recordset
  Dim oField As DAO.Field
  Dim oItem As ListItem
 
  ' Datenbank öffnen
  Set Db = Workspaces(0).OpenDatabase(dbFilename, _
    False, False)
 
  ' Ersteinmal brauche wir ein Recordset
  Set oRecordset = Db.OpenRecordset _
    ("SELECT * FROM " & dbTable, dbOpenSnapshot, _
    dbOpenForwardOnly)
 
  ' Sicherstellen, dass das ListView leer ist
  With ListView1
    .ColumnHeaders.Clear
    .ListItems.Clear
 
    ' Report-Ansicht (Detail-Ansicht)
    .View = lvwReport
 
    ' Hier richten wir das ListView ein
    For Each oField In oRecordset.Fields
      ' jedes Feld aus dem Recordset als Überschrift
      ' in das ListView
      .ColumnHeaders.Add , oField.Name, oField.Name
    Next
 
    ' Sind überhaupt Datensätze vorhanden?
    If oRecordset.RecordCount > 0 Then
      ' Nun das Recordset durchlaufen und alle Daten in
      ' das ListView einfügen
      oRecordset.MoveFirst
      Do
        ' ein ListItem mit dem ersten Feld des aktuellen
        ' Recordset-Eintrags erzeugen
        For Each oField In oRecordset.Fields
          If oItem Is Nothing Then
            ' ein neues ListItem erzeugen
            Set oItem = .ListItems.Add(, , oField.Value)
          Else
            oItem.SubItems _
              (.ColumnHeaders.Item(oField.Name).Index - 1) _
            = IIf(Not IsNull(oField.Value), oField.Value, "")
          End If
        Next
 
        ' Unser ListItem wieder auf Nothing setzten
        Set oItem = Nothing
 
        ' nächsten Datensatz aus dem Recordset
        oRecordset.MoveNext
      Loop Until oRecordset.EOF
    End If
  End With
  oRecordset.Close
  Db.Close
 
  Set oField = Nothing
  Set oRecordset = Nothing
  Set Db = Nothing
 
End Sub

With ListView1
   Set .ColumnHeader.Add(....
   ...
   ColumnHeader 1 = Artikelnummer
   ColumnHeader 2 = Breite
   ColumnHeader 3 = Stärke
   ColumnHeader 4 = Länge
   ColumnHeader 5 = Bezeichnung
   ....

VG

Dirk