Anthony

Check the code for the PW check. I believe it should be:
PW = Nz(DLookup("Password", "Tbl_User", "UserID=" & ID), "")

You have an ampersand (&) instead of a comma.

Don

Hi Don,  
I don't know how I missed that. Thanks.  So, I made the correction, and it still does the same thing.
When I enter a correct Username, and leave the Password blank, it will go to the Main menu.

You can easily check for that at the top of the sub.

if IsNull(UserName) or UserName="" then...

Same with Password.

Anthony

So I created a similar form just to try to walk through it like yours. And, YES, I ran into the same exact problem no matter what I tried to do.

One issue however, "Password" is a reserved word in Access and should be avoided as a table field name or a control name.

However, even after I renamed the field to "PWord" and the same for control, the problem persisted. Everything I've looked up says this is known to happen with unbound forms.

That said... I set the "Default Value" of my newly renamed "PWord" control to "" --- an empty string and then it behaved as expected... The validation failed when the password didn't match and it worked if the user's password was blank

I changed the Field to PWord and the Control to an Empty String, however is appears to be working the same as it did with the original code.  If I enter a valid username, and leave the PWord BLANK (even though the user does have a password), it bypasses the security and open the Main Menu.  

I tried a new approach to the code.  Instead of PW <> PWord, I went with PW = PWord with an Else statement.  As I'm still learning VBA, not sure if this is an acceptable way of doing it.  The only thing now it a User must have a password.

Sorry my work around didn't work for you but glad you found a solution that did.