Dim Db As Database
 Dim TabDef As QueryDef
 
 Set Db = OpenDatabase(Pfad)
 With Db
   For Each TabDef In .QueryDefs
 
        If InStr(TabDef.Name, "abfPRODUKTEK") = 1 Then
 
        Dim rs          As DAO.Recordset
        Dim varArray()  As Variant
        Dim Zeile       As Long
        Dim Spalte      As Long
 
        Set rs = CurrentDb.OpenRecordset(TabDef.Name)
 
        'Redimensioniern des Arrays
        rs.MoveLast
        ReDim varArray(rs.RecordCount, rs.Fields.Count - 1)
        rs.MoveFirst
 
        'Befüllen des Arrays
        With rs
        While Not .EOF
            For Spalte = 0 To rs.Fields.Count - 1
                varArray(Zeile, Spalte) = rs.Fields(Spalte)
            Next Spalte
            .MoveNext
            Zeile = Zeile + 1
        Wend
        End With