Recordset bases in another to calculate (Sum)

In Access i can do this:
----------------------------

QUERY: c4
SELECT codMediador, refProduto, 0 as valor
FROM Mediador, Produto
ORDER BY codMediador, refProduto;
UNION SELECT codMediador, refProduto, quantidade
FROM MedProd;

QUERY: D
SELECT DISTINCTROW c4.codMediador, c4.refProduto, Sum(valor) AS Soma
FROM c4
GROUP BY c4.codMediador, c4.refProduto;


In ASP i have:
-----------------

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("med.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

ComandoSQL = "SELECT codMediador, refProduto, 0 FROM Mediador, Produto"
ComandoSQL = ComandoSQL & " ORDER BY codMediador ASC, refProduto ASC"
ComandoSQL = ComandoSQL & " UNION SELECT codMediador, refProduto, quantidade FROM MedProd"

Set rs=conn.execute(ComandoSQL)


And then?
How i write my second Recordset ("D")?
--------------------------------------------------