創(chuàng)建一個(gè)帶密碼的空數(shù)據(jù)庫(kù)

Function CreatePassWordDB(strPathName As String, strPsd As String) As Boolean
    On Error GoTo Exit_ERR
    Dim wrkDefault As Workspace
    Dim NewDB As Database
    CreatePassWordDB = False
    Set wrkDefault = DBEngine.Workspaces(0)
    If Dir(strPathName) <> "" Then Kill strPathName
    Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral & ";pwd=" & strPsd & "")
    NewDB.Close
    Set NewDB = Nothing
    CreatePassWordDB = True
    Exit Function
    Exit_ERR:
    MsgBox "備份失??！" & vbCrLf & vbCrLf & Err.Description, vbExclamation
    Exit Function
    End Function