Private Sub Listview(ByVal dbTable As String)
constart
Dim oRecordset As ADODB.Recordset
Dim oField As ADODB.Field
Dim oItem As ListItem
 
With DB
    .CursorLocation = adUseClient
End With
 
'Einlesen
Set oRecordset = New ADODB.Recordset
With oRecordset
    .ActiveConnection = DB
    .Source = "dbTable"
    .LockType = adLockOptimistic
End With
oRecordset.Open "Select * From " & dbTable ', DB, adOpenForwardOnly, 
' adLockReadOnly, 0
' ListView leeren + LiestView Eigenschaften
With ListViewAusgangsrechnung
    .ColumnHeaders.Clear
    .ListItems.Clear
    .View = lvwReport ' Report-Ansicht (Detail-Ansicht)
    .GridLines = True ' Man sieht die Gitternetzlinien
    .FullRowSelect = True 'kompl.Datensatz wird markiert
    .LabelEdit = lvwManual 'ich lege die Spalteneigenschaften selbst fest
 
 
'Prozeduraufruf mit den Eigenschaften Spaltenbreite + Bezeichnung
ListvAusgangsrechnungEinteilung
 
' Prüfen ob Datensätze vorhanden
If oRecordset.RecordCount > 0 Then
' Nun das Recordset durchlaufen und alle Daten in Listview schreiben
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 'Solange kein Datensatz mehr vorhanden
End If
End With
Set oField = Nothing
Set DB = Nothing
Set oRecordset = Nothing
End Sub
 
 
 
Aufruf mit Übergabe der Tabelle als Parameter:
 
Private Sub Form_Load()
constart 'Modul für Verbindung
Call Listview("Ausgangsrechnungen")
End Sub