With ListView1
 
      If .ColumnHeaders.Count = 0 Then
        .ColumnHeaders.Clear
        .ListItems.Clear
 
        ' Report-Ansicht (Detail-Ansicht)
        .View = lvwReport
 
        ' Hier richten wir das ListView ein
        For Each oField In rsArtikel.Fields
          ' jedes Feld aus dem Recordset als Überschrift
          ' in das ListView
          .ColumnHeaders.Add , oField.Name, oField.Name
        Next
 
      Else
        .ListItems.Clear
      End If
 
      'Spaltenbreite
 
      ListView1.ColumnHeaders(1).Width = 800     'Artikelnummer
      ListView1.ColumnHeaders(2).Width = 2000    'Name
      ListView1.ColumnHeaders(3).Width = 1000    'Charge
      ListView1.ColumnHeaders(4).Width = 1800    'Art
      ListView1.ColumnHeaders(5).Width = 1800    'Hersteller
      ListView1.ColumnHeaders(6).Width = 1000    'Meldebestand
      ListView1.ColumnHeaders(7).Width = 1000    'Lieferform
      ListView1.ColumnHeaders(8).Width = 1000    'EK
      ListView1.ColumnHeaders(9).Width = 1000    'VK
      ListView1.ColumnHeaders(10).Width = 1500   'Bemerkung
 
 
      ' Sind überhaupt Datensätze vorhanden?
      If rsArtikel.RecordCount > 0 Then
        ' Nun das Recordset durchlaufen und alle Daten in
        ' das ListView einfügen
         rsArtikel.MoveFirst
         Do
          ' ein ListItem mit dem ersten Feld des aktuellen
          ' Recordset-Eintrags erzeugen
          For Each oField In rsArtikel.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
          rsArtikel.MoveNext
        Loop Until rsArtikel.EOF
      End If
    End With
 
               If ListView1.ListItems.Count <> 0 Then
                   Set ListView1.SelectedItem = ListView1.ListItems(indexzeile)
                   Call ListView1_ItemClick(ListView1.ListItems(indexzeile))
             End If