"Run-time error 13: Type mismatch"

Hi all. This error allways appears when I try to create and to add the property ALLOWBYPASSKEY to the database's properties collection.
Is there anything else that has to be done to make the code work?

The code is:
Dim dbs As DAO.Database
Dim prp As Property
Dim PropName As string
Const DB_Bool As Variant = 1

PropName = "AllowBypassKey"
Set dbs = CurrentDb
Set prp = dbs.CreateProperty(PropName, DB_Bool , False)
dbs.Properties.Append prp