Here the code you need
VB Code:
Private Sub cmdOK_Click()
If txtPassword = "password" Then
LoginSucceeded = True
Load frmMain
frmMain.Label3.Caption = Me.txtUserName.Text
Unload Me
frmMain.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub