Visual Basic - controlar intentos permitidos, para ingresar al sistema

Try 'Controlador de errores

	'Consulta para seleccionar el registro que cumpla con el criterio de datos. 

	Using ConexionX As New OleDbConnection(cadenaConexion)

		'Abrimos la conexión a la Base de datos

		ConexionX.Open()

		'Creamos un comando del tipo SqlCommand y le pasamos la variable que contiene

		'la consulta y la conexión

		Dim ConsultaUsuario As String = "Select * From Tbla_Usuario Where  Tipo_usuario =@Tipo_usuario and Nombre_usuario =@Nombre_usuario and Activar_desactivar_usuario = 'SI' "

		Using comando As New OleDbCommand(ConsultaUsuario, ConexionX)

			'Establecemos valores a los parámetros, en el mismo orden de los valores de la consulta 

			comando.Parameters.AddWithValue("@Tipo_usuario", cboTipoUsuario.Text)

			comando.Parameters.AddWithValue("@Nombre_usuario", txtNombreUsuario.Text)

			Dim lector As OleDbDataReader

			lector = comando.ExecuteReader

			If lector.Read = True Then

				frmMenu.Show() 'Muestra el formulario de Menú Principal 

				Me.Hide() 'Oculta  el formulario de Acceso es decir Login

				If cboTipoUsuario.Text = "ADMINISTRADOR(A)" Then

					frmMenu.ParámetrosToolStripMenuItem.Enabled = True

				End If

			Else

				MsgBox("Nombre de Usuario O contraseña son inválidos ")

				txtNombreUsuario.Clear()

				txtContrasenaUsuario.Clear()

				txtNombreUsuario.Focus()

			End If

		End Using

	End Using

Catch ex As Exception

	MsgBox("Error al intentar entrar al sistema")

	MessageBox.Show(ex.Message) 'Muestra el Mensaje de Error 

End Try