أستاذنا 
 
	طبقت الكود السابق كما يلي
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive", , 48)
For Each objItem In colItems
   s = objItem.SerialNumber
Next
If s = "1210253353" Then
DoCmd.OpenForm "frm-userlogon"
Else
MsgBox "البرنامج محمي لا يمكن فتحه"
DoCmd.Quit
End If
	ورقم الفلاش هو 
 
	1210253353
 
	ولكن النتيجة أن الرسالة تظهر البرنامج محمي 
 
	مع أنه المفروض أن يدخل عن النموذج
 
	مع العلم أن الكود تم وضعه في حدث عند الفتح للنموذج