创建一个带密码的空数据库

函数CreatePassWordDB(strPathName为字符串，strPsd为字符串)为布尔值
出错时转到Exit_ERR
Dim wrkDefault为工作区
Dim NewDB为数据库

CreatePassWordDB = False
Set wrk default = DBEngine。work spaces(0)
If Dir(str pathname)" " Then Kill str pathname
Set NewDB = wrk default。CreateDatabase(strPathName，dblang general & "；pwd=" & strPsd & " ")

NewDB。Close
Set NewDB = Nothing

CreatePasswordDB = true
Exit function
Exit _ err:
msgbox“备份失败！”& vbCrLf & vbCrLf &呃。描述，VB感叹号
退出函数
结束函数