What's the best way to call a Stored Procedure from VB6?

[biruel]

Hi, I have in my SQLServer 2000 the following Stored Procedure...
---------------------------------------------------------------
CREATE PROCEDURE sp_idGeraNf_CriaNf
@CnpjOrigem Varchar(50),
@codTipoNf Bigint,
@ValorTotalNf Money,

@codNf Bigint OUTPUT AS

BEGIN
INSERT INTO tbLekkus_PedidoVendaNF
(CnpjOrigem,
codTipoNf,
ValorTotalNf)
VALUES
(@CnpjOrigem,
@codTipoNf,
@ValorTotalNf)
SELECT @codNf=@@Identity
END
--------------------------------------------------------------------

...to add data on database using this SP, I use the following code source...

*****************************************************
Set par = cmd.CreateParameter("CnpjOrigem", adVarChar, adParamInput, 50)
cmd.Parameters.Append par
cmd.Parameters(0) = sCnpjOrigem

Set par = cmd.CreateParameter("codTipoNf", adBigInt, adParamInput)
cmd.Parameters.Append par
cmd.Parameters(1) = 44

Set par = cmd.CreateParameter("ValorTotalNf", adCurrency, adParamInput)
cmd.Parameters.Append par
cmd.Parameters(2) = 55.65

Set par = cmd.CreateParameter("codNf", adBigInt, adParamOutput)
cmd.Parameters.Append par

cmd.ActiveConnection = gblCn
cmd.Execute

' Set rConsulta = cmd.Execute

MyNumberKey=cmd.Parameters.Item(3)

*****************************************************
...it's working fine, but now, I need call a Stored Procedure with 98 fields, in the way that I'm following I'll need create about 300 lines of code considering
the following code to each field that I'll need populate...
..."Set par = cmd.CreateParameter("codTipoNf", adBigInt, adParamInput)
cmd.Parameters.Append par
cmd.Parameters(1) = 44".

Anyone can help me?
There are other ways to me insert the data to a database from this SP ?

Since now, thank very much
best regard
Biruel

[Phil Weber]

I don't know of any shortcut to pass 98 parameters to a stored procedure. I would probably use one of the many code generators available to generate the code automatically: http://www.google.com/search?q=ado+s...dure+generator

[biruel]

Thank very much Phis, this Add-In
http://www.vbrad.com/article.aspx?id=103 help me a lot.

big hug
biruel (skype: ricardobiruel)