Ошибка при выполнение VBA макроса - Type mismatch

Формулировка задачи:

вот это код:

Function ap_DisableShift()
'Эта функция запрещает использование клавиши SHIFT при запуске. В результате
'всегда выполняется макрос Autoexec и выполняются параметры запуска 

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'В следующей строке запрещается использование клавиши SHIFT при запуске
db.Properties("AllowByPassKey") = False

'Выполнение функции успешно завершается.
Exit Function

errDisableShift:
'В первой части этого обработчика ошибок создается свойство "AllowByPassKey",
'если его не существует.
If Err = conPropNotFound Then
'вот дальше, на этой строчке он выдает ошибку
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Не удалось успешно завершить функцию 'ap_DisableShift'."
Exit Function
End If

End Function

Решение задачи: «Ошибка при выполнение VBA макроса - Type mismatch»

textual
                            Листинг программы 
                        

                            dim pname as string
dim pvalue as boolean
pname = "AllowByPassKey"
pvalue = False
' ...
Set prop = db.CreateProperty(Name := pname, Type := dbBoolean, Value := pvalue)

                        