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 Li = ListView1.ListItems.Add
                        Li.Key = oRecordset.Fields("ID").Value & "x"
                        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
                Set oItem = Nothing
                ' nächsten Datensatz aus dem Recordset
                oRecordset.MoveNext
            Loop Until oRecordset.EOF
        End If
    End With