创建一个空数据库

函数CreateNormalDB(strPathName As String)为Boolean
On Error GoTo Exit _ ERR
Dim wrk default As Workspace
Dim NewDB As Database

CreateNormalDB = False
Set wrk default = DBEngine。work spaces(0)
If Dir(str pathname)" " Then Kill str pathname
Set NewDB = wrk default。CreateDatabase(strPathName，dbLangGeneral)

NewDB。Close
Set NewDB = Nothing

CreateNormalDB = True
退出函数

Exit_ERR:
MsgBox "备份失败！"& vbCrLf & vbCrLf &呃。描述，VB感叹号
退出函数
结束函数

调用时只需提供路径和文件名。此功能是备份数据模块的一部分