Как создать запароленную MDB? - VB

Option Explicit
'************************************
'Программное создание Баз Данных
'Шаг 1. Создание Базы данных
'---------------------------
'По материалам статьи 'Программное создание Баз Данных'
'Специально для сайта 'Азбука Visual Basic'
'Автор: Армен Мнацаканян
'*************************************
'
Dim NewDB As Database
Dim NewWs As Workspace
Dim lngDBOpts As Long
Dim strDBPath As String
'
Private Sub Command1_Click()
'
'
Dim strFileType As String
'
On Error GoTo ErrorHandler
'
CommonDialog1.CancelError = True
'
strFileType = 'MS Access Database (*.mdb)|*.mdb|'
'
CommonDialog1.Filter = strFileType
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = 'Введите имя создаваемой БД'
CommonDialog1.InitDir = 'c: '
CommonDialog1.Action = 1
'
'***********************************************
'Инициализируем переменныю пути к БД
strDBPath = CommonDialog1.FileName
'Устанавливаем опции
lngDBOpts = dbVersion30 + dbEncrypt
'Создаем рабочее пространство
Set NewWs = DBEngine.Workspaces(0)
'Создаем Базу Данных
Set NewDB = NewWs.CreateDatabase(strDBPath, dbLangCyrillic, lngDBOpts)
'
MsgBox 'База Данных ' & CommonDialog1.FileTitle & _
' создана.', vbInformation, 'Создание Баз Данных'
'
'Закрываем Базу Данных и рабочую область
NewDB.Close
NewWs.Close
'Уничтожаем объекты
Set NewDB = Nothing
Set NewWs = Nothing
'***********************************************
'
Exit Sub
'
ErrorHandler:
Select Case Err.Number
        'Пользователь нажал на Cancel CommonDialog
        Case 32755
        Exit Sub
        'Если БД уже существует
        Case 3204
        MsgBox 'База Данных под этим именем уже существует.' & _
                vbCrLf & 'Введите новое имя для Базы Данных.', vbExclamation, _
                'Создание Баз Данных'
        Command1_Click
        Exit Sub
'
End Select
'
End Sub