Problema formulario loggin

Hola antes que nada le doy las gracias por poner sus conocimientos a disposición de los usuarios y su disponibilidad.
Mi consulta es la siguiente, tengo que hacer un formulario de loggin donde el usuario introduzca contraseña e ingrese al sistema.
Después de 3 intentos de ingresar con contraseña incorrecta tiene que aparecer un mensaje de error.
Mi código
Dim contador As Integer
contador = 1
If Adodc1.Recordset.Fields(1) = Text1.Text  And  contador <= 3 Then
Principal.Show
Logg.Hide
Else
contador = contador + 1
MsgBox "Contraseña invalida"
End If
If contador = 3 Then
MsgBox ("Usuario Prohibido")
End If
Pero después de los tres intentos me sigue dando el mensaje de contraseña invalida y no el de usuario prohibido.
Gracias por tu disposición y que este bien, saludos!