function createnormaldb(strpathname as string) as boolean
on error goto exit_err
dim wrkdefault as workspace
dim newdb as database

createnormaldb = false
set wrkdefault = dbengine.workspaces(0)
if dir(strpathname) <> "" then kill strpathname
set newdb = wrkdefault.createdatabase(strpathname, dblanggeneral)

newdb.close
set newdb = nothing

createnormaldb = true
exit function

exit_err:
msgbox "备份失败！" & vbcrlf & vbcrlf & err.description, vbexclamation
exit function
end function

'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份