---

Sub DisableShift()
Dim db As DAO.Database
Dim prop As DAO.Property
Set db = CurrentDb
Set prop = db.CreateProperty("AllowBypassKey", dbBoolean, False)
db.Properties.Append prop
End Sub