Sub DisableShiftKey()

        Dim db As DAO.Database
        Dim prp As DAO.Property

        Set db = CurrentDb
        db.Properties.Delete "AllowBypassKey"
        Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
        db.Properties.Append prp

        db.Properties.Refresh

        Set prp = Nothing
        Set db = Nothing

    End Sub

db.Properties.Delete "AllowBypassKey"