創建一個帶密碼的空數據庫

函數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感歎號
退出函數
結束函數

位律師廻複