Visual Basic - ADO y TRANSACCION

Hola a todos.

Mi problema es el siguiente.

Tengo un Procedimiento almacenado que contiene una transacción que en caso
de tener éxito me debe regresar un número; cuándo llamo al procedimiento
almacenado desde Visual Basic a través de un recordset la transacción se
completa con éxito pero el recorset se mantiene cerrado, tengo algo así en
Visual...

Cm.CommandText = "EXEC sp_CrearPedido " ... parámetros...
Set Rst = Cm.Execute()

Y el sp_CrearPedido tiene algo así...

CREATE PROCEDURE sp_CrearPedido
parámetros........
AS
DECLARE @PEDIDO VARCHAR(15)

SET XACT_ABORT ON
SET TRANSACTION ISOLATION LEVEL SERIALIZABLE
BEGIN TRANSACTION CreaPedidoAd
BEGIN
instrucciones........
COMMIT TRANSACTION CreaPedidoAdonix
END
SELECT @PEDIDO AS PEDIDO
GO

Si yo llamo este procedimiento desde una instacia del analizador de
consultas si me regresa el valor de @PEDIDO.

¿Qué estoy haciendo mal?

De antemano muchas gracias.

Saludos.