您正在看的acce教程是:创建一个空数据库。FunctionCreateNormalDB(strPathNameAsString)AsBoolean
OnErrorGoToExit_ERR
DimwrkDefaultAsWorkace
DimNewDBAsDatabase
CreateNormalDB=False
SetwrkDefault=DBEngine.Workaces(0)
IfDir(strPathName)lt;gt;""ThenKillstrPathName
SetNewDB=wrkDefault.CreateDatabase(strPathName,dbLangGeneral)
NewDB.Close
SetNewDB=Nothing
CreateNormalDB=True
ExitFunction
www.iTbulo.co5nC2M
Exit_ERR:
MsgBox"备份失败！"amvbCrLfamvbCrLfamErr.Description,vbExclamation
ExitFunction
EndFunctionwww.iTbulo.co5nC2M
'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份