คือว่า ผมได้ใช้ function ChangeProperty bypasskey ที่อาจารเคยบอกไว้แล้วน่ะครับ
แต่มันไม่ได้

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim prp As Property ( dim dbs ไว้แล้ว)
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

-------
Private Sub Shift_Disabled_Click()
ChangeProperty "AllowBypassKey", DBboolean, False
End Sub

พอ run shift_disabled แล้ว
มันก็บอก type mismatch น่ะครับ (เหมือนกับ ไม่มี property bypasskey )
error ตรงบรรทัด
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
น่ะครับ

เป็นเพราะอะไรครับ
อาจารย์ช่วยหน่อยครับ

ขอบคุณมากครับ