Set db = OpenDatabase("C:\test.mdb")
    Set tb = db.OpenRecordset(sql, dbOpenDynaset)
        If Not (tb.BOF And tb.EOF) Then
            tb.MoveLast                     'Zum letzten Datensatz springen
            last = tb.RecordCount           'Anzahl der Datensätze aufnehmen
            tb.MoveFirst                    'Zum ersten Datensatz springen
            DB_Feld = tb.GetRows(last)      'Datenfelder der Datenbank aufnehmen
        Else
            MsgBox ("Filterbegriff ohne Ergebnis.")
        End If
   tb.Close
db.Close