Lo que puedes hacer es crear una variable global, justo debajo de
Código:
Imports MySql.Data.MySqlClient
Public Class administrador
Coloca
Código:
Public intentos As Integer = 0
Despues cada vez que falle la contraseña coloca
y con un simple if puedes comprobar que no sea mayor de 3.
Código:
if intentos = 3 then
'Deshabilitamos los campos de Log In
txtadministrador.enabled = false
txtcontrasena.enabled = false
MsgBox("Haz superado tu limite de intentos")
Else
'Le da otra oportunidad.
End if