分类汇总如何实现？请高人指点

Question

请问如何在VB中利用ADO实现类似于EXCEL中的分类汇总功能：
例如：药名 数量(盒)
消栓再造丸 200
儿童清肺丸 100
柏子养心丸 700
消栓再造丸 900
消栓再造丸 400
儿童清肺丸 200
柏子养心丸 600要求实现：药名 数量
消栓再造丸 200
消栓再造丸 小计: 200
儿童清肺丸 100
儿童清肺丸 小计: 100
柏子养心丸 700
柏子养心丸 小计: 700
消栓再造丸 900
消栓再造丸 400
消栓再造丸 小计: 1300
儿童清肺丸 200
儿童清肺丸 小计: 200
柏子养心丸 600
柏子养心丸 小计: 600
  总计        3100

Answer 1

select 药名,数量,sum(数量) from biao group by 药名

Answer 2

select * from (select 药名，数量 from table 表名 
union  select 药名,sum(*) as 数量 from table 表名 ) order by 药名，数量
union select "总计:" as 药名,sum(*) as 数量 from 表名