basta che tra i riferimenti indichi dao3.6
il codice resta quello che hai già scritto...

dim db as database
dim rc as recordset

set db=opendatabase(c:\db.mdb") 'database access2000
set rec=db.openrecordst(tabella) 'senza query