dim appaccess，db，atableset app access=createobject(' access。应用程序”)设置db=应用程序访问。dbengine。打开数据库(服务器。mappath('北风。MDB '))为DB。tabledefsif instr(表。name，' Sys ')=0然后响应。可写表格。name ' br ' end if nextdb。closeapp访问。quits et db=nothing set app access=nothing现存问题：需要服务器安装访问，
