MySQL con InnoDB

[mankel]

Que onda

Despues de leer un buen rato el manual de MySQL, cambie algunos detalles y agregue otros que me hacian falta y ya camina mi procedimiento.

Lo que necesito saber es ahora como puedo regresarle a VB.net el valor de una variable tipo bandera (con un solo caracter), para que este me despliegue un mensaje.

Les dejo el codigo de mi procedimiento:

Código:

CREATE DEFINER=`root`@`localhost` PROCEDURE `ProcInsCta`(numcta char(9), nombcta varchar(90), tcuenta char(1), ctamayor char(1), fechacuenta char(10), clase char(1), subcta char(9))
BEGIN
	set @numerocta= NULL, @subctade= NULL;
	set autocommit=0;
	start transaction WITH CONSISTENT SNAPSHOT;
	select cuenta into @numerocta from `cont-cuenta` where `cuenta`=numcta;
	if @numerocta <> NULL then
		select 'La cuenta que intenta agregar ya existe';
	else
		insert into `cont-cuenta` (cuenta,nombre,tipo,mayor,fechalta,clase) values (numcta,nombcta,tcuenta,ctamayor,fechacuenta,clase);
		show count(*) errors;
		if @@error_count > 0 then
			rollback;
			select 'Error al insertar registro en cont-cuenta. No se agrego el registro';
		else
			if ctamayor<>'3' then
				select cuenta into @subctade from `cont-cuenta` where `cuenta`=subcta;
				if @subctade = NULL then
					rollback;
					select 'El numero de la cuenta superior no existe';
				else
					insert into `cont-ctasoc` (ctasup,subcta) values (numcta,subcta);
					show count(*) errors;
					if @@error_count > 0 then
						rollback;
						select 'Error al insertar registro en cont-ctasoc. No se agrego el registro';
					else
						commit;
						select 'El registro se ha guardado con exito. cont-cuenta y cont-ctasoc';
					end if;
				end if;
			else
				commit;
				select 'El registro se ha guardado con exito. cont-cuenta';
			end if;
		end if;
	end if;
END