Как установить пароль на базу данных Access

Компилятор: Visual Basic

Public Function SetDatabasePassword(DBPath As String, _
newPassword As String) As Boolean

'Применение: Защищает базу данных паролем, если она до этого
'не имела пароля

'Параметры: sDBPath: Полный путь к базе данных Access
'newPassword: пароль
'В случае успеха, возвращает true, иначе false

If Dir(DBPath) = "" Then Exit Function

Dim db As DAO.Database

On Error Resume Next
Set db = OpenDatabase(DBPath, True)
If Err.Number <> 0 Then Exit Function
db.newPassword "", newPassword
SetDatabasePassword = Err.Number = 0
db.Close

End Function