vb汇总怎么弄啊

返回所有药品汇总：
查询字符串："SELECT 品名,sum(数量) as 销售总数量,sum(金额) as 销售总金额 FROM CHUKU GROUP BY 品名"
返回结果：所有药品以品名为汇总统计字段进行数量和销售金额统计。

返回输入药品名汇总：
查询字符串："SELECT 品名,sum(数量) as 销售总数量,sum(金额) as 销售总金额 FROM CHUKU WHERE 品名='" & text1.text & "'"
返回结果：返回所输入药品名称的汇总，可进行其他操作，例如将结果存入其他数组或什么。

和一个access表连着，想同时有两种汇总方案，第一是一个按钮让全部药品的信息汇总，即品名一样的数量和金额加在一起。第二种是在文本框中输入的品名汇总，输入一条加一条。我现在是弄得不管怎么汇总只能在网格中显示第一个汇总的药品数量和金额。小弟是初学者，实在不会啦~~
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
Dim s As String
Dim t As Integer
DataGrid1.Refresh

s = "select 品名 from chuku where 品名='" & Text1.Text & "'"
If rs.State <> 0 Then rs.Close
rs.Open s, cn, adOpenKeyset, adLockReadOnly
rs.Close
rs.Open "select sum(数量) as 销售总数量,sum(金额) as 销售总金额 from chuku", cn
Set DataGrid1.DataSource = rs
Text1.Text = &q