Usar información de un recordset en otro

[nemesis07]

Buena tarde, estimados tengo el siguiente código el cual tiene dos recordsets, el primero corre sin problemas ya que llena las tablas temporales y ejecuta el SP, el problema que tengo es que en la clausula Where del segundo recordset necesito utilizar la variable que declaro en el primer recordset. alguno tiene idea de como se hace esto.

Gracias

Cells.Clear


    Dim oConn1 As ADODB.Connection

    Dim rs1 As ADODB.Recordset

    Dim rs2 As ADODB.Recordset

    Set oConn1 = New ADODB.Connection

    oConn1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Contraseña.Text & ";Persist Security Info=True;User ID= " & Usuario.Text & "; Initial Catalog =" & bases.Text & ";Data Source= ADGNT01\ADG;"

    oConn1.ConnectionTimeout = 200

    oConn1.Open


    Set rs1 = New ADODB.Recordset

    rs1.ActiveConnection = oConn1

   ' rs1.Source = "SELECT * FROM CLIENTES"


    rs1.Source = "DECLARE @id INT " & _

                    "SET @id = @@spid " & _

                    "INSERT CLIENTES_SALDOS_E (PROCESO_ID, CODIGO_DE_CLIENTE) " & _

                    "SELECT @id, CODIGO_DE_CLIENTE " & _

                    "FROM CLIENTES " & _

                    "WHERE CLIENTES.CODIGO_DE_CLIENTE BETWEEN '" & EXTRA(Ncuenta) & "' AND '" & EXTRA(Ncuenta2) & "' " & _

                    "EXECUTE sp_Reconstruccion_saldo_doctos '', '" & EXTRA(Fechacorte) & "', @id "


    Set rs2 = New ADODB.Recordset

    rs2.ActiveConnection = oConn1


    rs1.Open

    rs2.Source = "Select P.NOMBRE_DEPARTAMENTO,M.NOMBRE_MUNICIPIO,R.NOMBRE_TERRITORIO,V.NOMBRE_VENDEDOR,C.CODIGO_DE_CONDICION,E.CODIGO_DE_CLIENTE,C.NOMBRE_CLIENTE, " & _

                    "D.CODIGO_MOVIMIENTO,D.SERIE_DEL_DOCUMENTO,D.NUMERO_DOCUMENTO, " & _

                    "(ME.MONTO_TOTAL * ME.CAMBIO_MONEDA_LOCAL) AS MONTO_MONEDA_LOCAL,D.SALDO_MONEDA_LOCAL,convert(varchar(10),D.FECHA_DOCUMENTO,103)  AS FECHA_DOCUMENTO, " & _

                    "convert(varchar(10),D.FECHA_VENCIMIENTO,103) AS FECHA_VENCIMIENTO,D.DIAS_DE_ANTIGUEDAD, " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD =0 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'NO VENCIDO', " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD >=1 AND D.DIAS_DE_ANTIGUEDAD <=15 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 1 A 15 DIAS', " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD >=16 AND D.DIAS_DE_ANTIGUEDAD <=30 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 16 A 30 DIAS', " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD >=31 AND D.DIAS_DE_ANTIGUEDAD <=60 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 31 A 60 DIAS', " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD >=61 AND D.DIAS_DE_ANTIGUEDAD <=90 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 61 A 90 DIAS', " & _

                    "CASE WHEN D.DIAS_DE_ANTIGUEDAD >=91 AND D.DIAS_DE_ANTIGUEDAD <=9999 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 91 A 9999 DIAS' " & _

                    "From CLIENTES C INNER JOIN CLIENTES_SALDOS_E E ON E.CODIGO_DE_CLIENTE = C.CODIGO_DE_CLIENTE " & _

                    "INNER JOIN CLIENTES_SALDOS_D D ON D.CODIGO_DE_CLIENTE    = E.CODIGO_DE_CLIENTE AND D.PROCESO_ID = E.PROCESO_ID " & _

                    "INNER JOIN MOVIMIENTOS_TIPO  T ON T.CODIGO_MOVIMIENTO   = D.CODIGO_MOVIMIENTO INNER JOIN DEPARTAMENTOS P ON C.CODIGO_DE_PAIS= P.CODIGO_DE_PAIS AND C.CODIGO_DEPARTAMENTO = P.CODIGO_DEPARTAMENTO " & _

                    "INNER JOIN MUNICIPIOS M ON  C.CODIGO_DE_PAIS = M.CODIGO_DE_PAIS AND C.CODIGO_DEPARTAMENTO = M.CODIGO_DEPARTAMENTO AND C.CODIGO_MUNICIPIO    = M.CODIGO_MUNICIPIO " & _

                    "INNER JOIN TERRITORIOS R ON C.CODIGO_TERRITORIO = R.CODIGO_TERRITORIO LEFT JOIN CLIENTE_VENDEDOR  CV ON C.CODIGO_DE_CLIENTE   = CV.CODIGO_DE_CLIENTE " & _

                    "LEFT JOIN VENDEDORES V ON CV.CODIGO_VENDEDOR = V.CODIGO_VENDEDOR INNER JOIN MOVIMIENTO_ENC ME ON D.SERIE_DEL_DOCUMENTO  = ME.SERIE_DEL_DOCUMENTO AND D.NUMERO_DOCUMENTO = ME.NUMERO_DOCUMENTO AND D.CODIGO_MOVIMIENTO = ME.CODIGO_MOVIMIENTO " & _

                    "Where E.PROCESO_ID = @id And T.TIPO_TRANSACCION = 'S' And D.ID_EMPRESA = 'GN' And D.ID_SUCURSAL = '01' And D.ID_CENTRO_OPERATIVO = '001' AND D.SALDO_MONEDA_LOCAL > 0"

                    '"Delete CLIENTES_SALDOS_E Where PROCESO_ID = @id " & _

                    '"Delete CLIENTES_SALDOS_D Where PROCESO_ID = @id"



    rs2.Open

    encabezados

    Range("A2").CopyFromRecordset rs2

    'a = rs1.Fields.Count

'    rs1.Close

    rs2.Close

    oConn1.Close

    MsgBox ("Reporte Generado")

    Set rs1 = Nothing

    Set rs2 = Nothing

    Set oConn1 = Nothing[/CODE]

[/size]