在工具的引用中选中miscrosoft access 9.0 objcet library
dim appaccess as access.application
dim mdbname as string
mdbname="access数据库路径"
set appaccess=createobjcet("access.application")
appaccess.opencudrrentdatabase mdbname,true
appaccess.visible=true
appaccess.maxizle=true
appaccess.opentable