'Deklarationen
Dim meinItem As String
Dim i As Long, AnzahlFelder As Long
 
'Satzweises auslesen des Recordsets und Zuweisung als Listitem
With meinRecordset
    'Gibt es überhaupt Sätze im Recordset?
    If .AbsolutePosition <> -1 Then
        'Wenn ja, dann ermittelst Du die Anzahl der Felder in Deinem Recordset.
        AnzahlFelder = meinRecordset.Fields.Count
        'Korrektur um 1, da Index bei "0" beginnt
        AnzahlFelder = AnzahlFelder - 1
 
        'danach zum ersten Satz gehen
        .MoveFirst
 
        'Wiederhole bis EOF erreicht ist
        Do Until .EOF
            'jeden Feldinhalt lesen, Index ermitteln und daraus Listitem 
            ' zusammen bauen
            For i = 0 To AnzahlFelder
                'Annahme: die Feldinhalte sind alle vom Typ String
                'Bei anderen Formaten den Feldinhalt vorher mit CStr() in 
                ' String konvertieren
                meinItem = meinItem & .Fields.Item(i).Value & " / " & _
                  "Feldindex: " & CStr(i) & vbKeyTab
            Next
            'Listitem zuweisen
            meinListfeld.Additem meinItem
            'meinItem zurücksetzen
            meinItem = ""
            'zum nächsten Datensatz gehen
            .MoveNext
        Loop
    End If
End With

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)