Access - funcion de agregado desde vb

Lo que intento es hacer una consulta desde vb que sume los datos de una columna de una tabla agrupados por
otro campo de la misma tabla, p ej
set rs=db.openrecordset("select sum(coste) from pedidos group by ciudad;")

luego los valores obtenidos por la consulta quiero sacarlos en un formulario y pongo

rs.movefirst
while not eof.rs
text1.text=text1.text + rs.fields(AQUI NO SE QUE PONER) +vbcrlf
rs.movenext
wend

alguien me dice como se hace?
gracias

si te entendi deberias de poner un alias a tu consulta:
set rs=db.openrecordset("select sum(coste) as SUMA from pedidos group by ciudad;")

y entonces tu ciclo debe ser así:
rs.movefirst
while not rs.eof
text1.text=text1.text + rs!SUMA +vbcrlf
rs.movenext
wend

hasta aqui la logica es buena, solo que hay un problema, la funcion sum() solo te arroga un registro asi que tu campo de texto solo tendrá una linea, o almenos eso creo, de cualquier forma intentalo y me avisas