I have a button on a form that opens another form. However, a password must be entered before this form will open. The code was placed in the On_Click event of the button:
Dim x
x = InputBox("Enter Password", "Password")
If x = "acct2001" Then GoTo DisEntry
MsgBox ("Incorrect...