我想按时间查询后将表中的金额这一项求和，然后显示出来。

Question

Private Sub Command2_Click()
On Error GoTo cmderror
Dim find_date1 As String
Dim find_date2 As String
If Option1.Value = True Then
find_date1 = Trim(Combo1.Text) & "-" & Trim(Combo2.Text) & "-" & Trim(Combo3.Text)
find_date2 = Trim(Combo4.Text) & "-" & Trim(Combo5.Text) & "-" & Trim(Combo6.Text)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 入库 where 日期 between #" & _
find_date1 & "#" & " and" & " #" & find_date2 & "#"
Adodc1.Refresh
End If
If Option2.Value = True Then
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 入库 where 品名='" + Text1.Text + "'"
Adodc1.Refresh
End If
cmderror:
If Err.Number <> 0 Then
  MsgBox "请输入正确的查询条件！", vbOKOnly + vbExclamation, "警告"
End If
End Sub以上是我的查询代码，我想根据时间查询出来后再计算金额的总和。
我的表叫入库
里面的字段名是品名，单价，数量，数量余额，单位，金额，备注
麻烦大家看看我在查询后怎么写代码能够实现，谢谢！

Answer 1

Adodc1.RecordSource = "select Sum(金额) from 入库 where 日期 between #" & _ 
find_date1 & "#" & " and" & " #" & find_date2 & "#" 
Adodc1.Refresh 

Answer 2

现在可以了，那你能帮我显示出来吗，我想用MSFlexGrid显示出来，显示的格式为品名，日期，金额，还有刚才计算出来的总金额。