Private Sub YourSecondButton_Click()
Dim PasswordLookup As String
Dim SecurityLevelLookup As Integer
PasswordLookup = Nz(DLookup("Password", "User", "User_ID=" & Nz(MyUserID, 0)), 0)
SecurityLevelLookup = Nz(DLookup("Security_Level", "User", "User_ID=" & Nz(MyUserID, 0)), 0)
If PasswordLookup...