erro ao executar função de bloqueio da tecla shift

Bom dia

Num banco de Dados access com extensão accdb coloquei um função que bloqueia a tecla shift mas antes pede a inserção de uma senha

acontece que esta dando um erro seguinte:

"O tipo definido pelo usuário não foi de definido"

segue os códigos com erro:

Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function


segue a função do botão:

Private Sub Comando101_Click()
'By JPaulo ® Maximo Access
Dim strResposta As String
strResposta = InputBoxDK("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "01011525", vbBinaryCompare) = 0 Then
SetProperties "AllowBypassKey", dbBoolean, True
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup options the next time the database is opened.", _
vbInformation, "Set Startup Properties"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub

Obs; O erro só retorna depois de colocada a senha.

Veja se falta ativar alguma referência VBA;

Compare com este exemplo, vá a um modulo, Ferramentas, Referências;

Senha no form = 123

http://dl.dropboxusercontent.com/u/771097/TesteByPass.rar

Boa tarde!

infelizmente continua dando erro  de compilação no código abaixo: "O tipo definido pelo usuario não foi definido"

se for problema de referencia no VB, qual seria item a marcar no na caixa referencia do visual basic

segue o codigo. Em negrito é o foco do erro.

Abraços


Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function

Marque a referencia DAO

Boa noite,
Colega, acompanhe as dúvidas por si colocadas.
Reveja as suas dúvidas que não continuidade e informe se resolveu (se sim, marque Resolvido) ou informe o ponto de situação.