你用的是DAO,在定义之前应在工程中的引用中添加DAO
然后就可以:
dim db as database
db=workspaces(0).opendatabase(...)