Erro de recordset gerado por ADODB

[FabianoSouza 5]

Está ocorrendo um erro simplesmente maluco.

 

Tenho uma procedure que funciona normalmente.

Mas quando mudo a string de conexão ocorre erro de recordset, dizendo " Operação não permitida quando o objeto está fechado. "

 

Vejam o código

 

Dim strConex
Set strConex = Server.CreateObject("ADODB.Connection")
'strConex.ConnectionString ="dsn=nomeConex1;uid=user1;pwd=senha1;"
strConex.ConnectionString ="dsn=nomeConex2;uid=user2;pwd=senha2;"
strConex.Open

Dim cmd
Dim rs1
Dim Recordset1_numRows

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = strConex
cmd.CommandText = "dbo.sel_MinhaProcedure"
cmd.Parameters.Append cmd.CreateParameter("@RETURN_VALUE", 3, 4)
cmd.Parameters.Append cmd.CreateParameter("@id", 3, 1, 16, 11) 'int
cmd.CommandType = 4
cmd.CommandTimeout = 0
cmd.Prepared = true
set rs1 = cmd.Execute
%>

 

O problema está aqui. Usando usando a nomeConex1, funciona.

 

Com a nomeConex2 não funciona. Porém uso a nomeConex2 para várias outras coisas. Deveria funcionar.

 

strConex.ConnectionString ="dsn=nomeConex1;uid=user1;pwd=senha1;"
strConex.ConnectionString ="dsn=nomeConex2;uid=user2;pwd=senha2;"

 

[FabianoSouza 5]

Ops.. Problema resolvido...
Era na procedure (no SQL Server).