اعتذر عن التاخر في الرد
كلمه السر موجوده في Modules1
Public Function TEST()
Dim strAdminPWord As String
strAdminPWord = InputBoxDK("Password required to proceed.", "Enter Licence Code")
If strAdminPWord = "password" Then
MsgBox "cool Password Correct ", vbOKOnly, "success"
DoCmd.OpenForm " Form2 "
Else
MsgBox ("You entered an invalid password")
' Exit Sub
End If
End Function