Dim db as database
Set db = dbengine.opendatabase("c:\test.mdb")
Dim rs() as recordset
redim Preserve RS(db.tabledefs.count)
Dim x as integer
for x = 0 to db.tabledefs.count -1
    Set rs(x) = db.openrecordset("SELECT * FROM " & db.tabledefs(x).Name )
next x