Ошибка при выполнение 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)