Visual Basic - Problema al Llamar Procedimiento Almacenado

Estimados

Favor si me pueden hechar una mano con esto

Estoy tratando de llamar un SP que desarrolle con cursores desde vb6 y
me arroja el siguiente error

"la operacion no esta permitida si el objeto esta cerrado"

Para llamar el sp desde vb6 utilizo el siguiente rutina:

Dim Rs_SPEtiqueta As ADODB.Recordset

'''*****Procedimiento Almacenado Crea Etiqueta *********

Set Rs_SPEtiqueta = New ADODB.Recordset

Rs_SPEtiqueta.CursorLocation = adUseClient
Rs_SPEtiqueta.CursorType = adOpenStatic

Rs_SPEtiqueta.Open "exec SP_CrearEtiqueta 174", conn, , , adCmdText

Do While Not Rs_SPEtiqueta.EOF     '====> aqui da el error

    MsgBox Rs_SPEtiqueta(0)

    Rs_SPEtiqueta.MoveNext

Loop

Rs_SPEtiqueta.Close

y el Contenido del SP de Sql Server 2005 Express (Con Cursores)

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:              Marcos Campos
-- Create date: 25/02/2010
-- Description: Crear Etiqueta
-- =============================================
ALTER PROCEDURE [dbo].[SP_CrearEtiqueta]

@IdEtiqueta as int

AS

declare @str_text as varchar(256)

declare Etiqueta cursor for

Select str_text From det_etiqueta Where (cod_meti = @IdEtiqueta) ORDER
BY n_linea

open Etiqueta

Fetch next from Etiqueta
into @str_text

while @@fetch_status = 0
begin

        print @str_text

       fetch next from Etiqueta into @str_text
end

close Etiqueta

deallocate Etiqueta

¿ Como Soluciono Esto ?

¿ puede influir que el SP este desarrollado con Cursores ?

Saludos

m@rcos

Hola xampion!!

mmm.... para que pones la llamada al stored dentro de un While?

joas si el sp no te va a devolver nada ...

Suerte,

SMK

Hola.
Yo llamo a los SP de la siguiente forma:
Conexion_DatosEmp 'para crear la conexion Db
Dim Cn As ADODB.Connection, Cm As ADODB.Command
Set Cn = New ADODB.Connection
Set Cm = New ADODB.Command
Cn.CursorLocation = adUseClient
Cn.Open Db
With Cm
.ActiveConnection = Cn
.CommandText = "amVerificarpoblacion"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@id", adVarChar, adParamInput, 37, IdServ)
Set rst2 = .Execute
End With

Espero que te sirva.
Un saludo