[VB6 - Stored Procedure sql2005]

[bertani8]

devo eseguire una stored procedure su sql passando dei parametri da vb6:
vi posto quello che ho scritto, ma mi ritorna un errore nel recordset (
l' operazione non è cosentita se l' oggetto è chiuso)

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spWrkOrdiniImpegniGetLastNumber]
@TipoDocumento int,
@DocAnno int,
@DocAlfa VarChar(2)
As
Declare @DocProgressivo int
Select Top 1 @DocProgressivo = DocProgressivo
From OrdiniImpegni
Where TipoDocumento = @TipoDocumento And DocAnno = @DocAnno And IsNull(DocAlfa,'') = @DocAlfa And DocProgressivo <> 0
Order by DocProgressivo DESC
Set @DocProgressivo = IsNull(@DocProgressivo,0) + 1
Return @DocProgressivo


IL CODICE VB6

TipoDocumento = 54002
DocAnno = 2009
DocAlfa = "I"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = CNSQL
.CommandType = adCmdStoredProc
.CommandText = "spWrkOrdiniImpegniGetLastNumber"
.Parameters.Append cmd.CreateParameter_
("@tipodocumento", adInteger, adParamInput, 6, TipoDocumento)
.Parameters.Append cmd.CreateParameter_
("@docanno", adInteger, adParamInput, 4, DocAnno)
.Parameters.Append cmd.CreateParameter_
("@docalfa", adVarChar, adParamInput, 2, DocAlfa)
End With

Set TMP = New ADODB.Recordset
Set TMP = cmd.Execute

If Not TMP.EOF Then
txt_number = TMP.Fields(0)
End If

PS: CNSQL (la stringa di connessione a sql è ok)

HELP ME!
grazie in anticipo