Llevar datos de BD a Excel por partes

saludos.

Necesito hacer lo siguiente:

Tengo el código en VB 6.0 y hasta ahora lo que hace es tomar de una BD y llevar a un archivo de Excel que crea a través de la misma aplicación... De la siguiente forma:

La consulta toma los datos y luego por medio de un recorset los pasa todos de una sola vez al archivo que recién creó.

Id_compra material Valor

1 Acero 700

1 Oro 2600

2 Cobre 450

2 Plata 980

3 Aluminio 400

3 Cobre 346

Entonces lo que necesito es que pase los datos totalizando por id_compra Osea...

Id_compra material Valor
1 Acero 700
1 Oro 2600

Total 3300

2 Cobre 450
2 Plata 980

Total 1430

3 Aluminio 400
3 Cobre 346

Total 746

Me hago entender ???