Dim Rs As Recordset
Dim AnzDS As Long
Dim vArr As Variant
Dim  colFields as New Collection
Dim fld As Field
Dim n As Integer
 
Rs = DB.OpenRecordset("Name_der_Tabelle", dbOpenDynaset)
 
'Recordset ist jetzt eine komplette Tabelle! 
 
'Wieviele Datensätze hat diese Tabelle?
AnzDs = DB.TableDefs("Name_der_Tabelle").Properties("Recordcount").Value
 
'Alle Datensätze in einen Array packen ....
vArr = Rs.GetRows(AnzDS)
 
'Felder merken
For Each fld In Rs.Fields
       ColFields.Add n, fld.Name
       n = n + 1
Next
 
n = 0
 
'Recordset zerstören
Rs.Close