Dim Datensatz As Variant 'wichtig muss variant sein
 
Sub Daten_einlesen()
    Dim Anzahl As Long
 
    Set DB = OpenDatabase("C:\SPDANT.MDB")
    Set TB = DB.OpenRecordset("Antragsdaten", dbOpenDynaset)
 
        ' Hier fehlt mir was, um die einzelnen Felder des jeweiligen 
        ' Datensatzes zu durchlaufen
        ' wert(j, ?)=???
        '
        TB.MoveLast
        Anzahl = TB.RecordCount
 
        Datensatz = TB.GetRows(Anzahl)
        'der index beginnt bei 0
 
End Sub