Program locker ??

[SpAtularrr]

I am currently making a payroll system as a porject for computing.
I have my log in code as so..

Private Sub Command1_Click()
If (LCase(Text1.Text)) = "admin" And (LCase(Text2.Text)) = "admin" Then
Unload Me
Form4.Show
Else
MsgBox "Please Enter Correct Username and Password"
End If

End Sub

I am going to add a commmand button to each page so the system can be locked and they can leave the computer with the login page, i was going to just put..

Private Sub Command4_Click()
Form4.Hide
Form3.Show
End Sub

But when reloging in it won't take me to the previous page.
Should i make a seperate login page for each command button so it will re-direct it to the previouc page or is there a way around this?

[second2none]

Private Sub Command1_Click()
If LCase(Text1.Text) = "admin" And LCase(Text2.Text) = "admin" Then
Unload Me
Form4.Show
Else
MsgBox "Please Enter Correct Username and Password"
End If

End Sub

try that