Dim DB_Feld() As Variant
Dim db As Database                          
Dim tb As Recordset                         
Dim last As Long
dim sql as string
 
sql="SELECT * FROM Testtabelle"          ' nur mal als Beispiel
 
Set db = OpenDatabase("C:\Testdatenbank.mdb"))
    Set tb = db.OpenRecordset(sql, dbOpenDynaset)
        If Not (tb.BOF And tb.EOF) Then
            tb.MoveLast                     
            last = tb.RecordCount      
            tb.MoveFirst                    
            DB_Feld = tb.GetRows(last) 
        End If
   tb.Close
db.Close