语言 VB,ACCESS

问题1

Private Sub Command1_Click

On Error GoTo c:
Dim My_Query As String
My_Query = Cbo_Category & " " & Cbo_Operator & " '" & FindText.Text & "'"
Data1.RecordSource = "SELECT * FROM 木工组输入 WHERE " & My_Query
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
MsgBox Data1.Recordset.RecordCount & " 个匹配", vbOKOnly, "查询结果"


FindText.SetFocus
Exit Sub
c:
MsgBox " 没有匹配的数据", vbOKOnly, "查询结果"
FindText.SetFocus

End Sub

例如：表1中有两个字段，日期和金额。

这是一段按日期查询的子程序已经完成，但我想在每次得到查询结果后能把表中金额的字段作求和统计，注意：不是作整个列的统计，而是只把查询出来的日期结果作统计。例如：查询结果是2006-01-01到2006-01-22这22天时间那么统计结果求和sum也就统计这22的和。请教高手怎么作。有更好的办法请麻烦您写出来，谢谢
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
问题2
请教，怎样能实现三个文本框中的内容同步，比如在其中一个文本框中输入保存数据后其他两个也同步保存了这个数据。但三个文本框分别在三个表中。请教高手怎样实现啊。用vb开发，access作库。