Erro de recordset gerado por ADODB

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;"