Visual Basic - Validación de acceso

hola.

alguilen podría decirme que está mal en este código??

gracias!

Private Sub cmdOK_Click()
If Contador <= 1 Then
If txtUserName = "Admin" Then
If txtPassword = "Password" Then
LoginSucceeded = True
Timer1.Enabled = False
frm2.Show
Unload Me
Else
MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
Contador = Contador + 1
End If
End If
Else
Mensaje = MsgBox("Acceso denegado", vbCritical, "Login")
End
End If
End Sub

Si lo que quieres es comprobar el usuario y la contraseña para mostrar un segundo formulario, veo demasiado código, variables booleanas, un objeto Timer y otras cosillas que no entiendo con que proposito aparecen.
Comprueba el usuario y la contraseña, si estos coinciden abre el formulario 2 y si no coinciden un mensaje de error.

Espero te sirva. Saludos Pola

Hola Pola, gracias por responder

Slds!

La instrucción deberia parecer mas o menos de esta forma:

If (txtUserName = "Admin") and (txtPassword = "Password") Then
LoginSucceeded = True
frm2.Show
Unload Me
Else
MsgBox "Acceso Incorrecto", vbCritical, "Login"
txtUserName.SetFocus
End If

Hola Ricardo.

Muchas gracias por responder.

Slds