ما الخطا فى هذا الكود

الاخوة الافاضل

بعمل باسورد لمستخدم

وحبيت اعمل رقم تانى احتياطى فى الكود

Dim P
Dim P2 As Long
P = DLookup("[pass1]", "pass")
P2 = 3101974
If txtPass = P2 Or P Then
DoCmd.Close
DoCmd.OpenForm "f1"
Else
DoCmd.Close
DoCmd.OpenForm "logo_off"
End If
End Sub

حيث P هى الباسورد الموجود فى الجدول

حيث P2 هى رقم انا هضعه فى الكود احتياطى اذا نسى المستخدم الكود الاول

حينما جربت الكود يفتح البرنامج على اى رقم

وعندما اجرب الكود بعد حذف احداهم يعمل اما الاثنين معا يفتح البرنامج على اى رقم يتم ادخالة

ارجو الافادة