[求助]如何实现扣款功能有一个ACESS的数据表，DB.mdb里有一个表，表名为user
里面有六个字段
分别为：
楼盘 楼层 房号 户名 身份证号码 交费金额
文明花园 A幢 403 杨广 441223820625145 500
文明花园 B幢 409 小广 441223820625145 1500
文明花园 A幢 503 杨良 441223820625145 600
文明花园 C幢 403 张广 441223820625145 800
文明花园 A幢 703 小杨 441223820625145 700
文明花园 C幢 803 成树 441223820625145 300

现在想要实现的功能是：
能否写一段程序实现将
文明花园 同一幢楼罗列出来，然后统计字段中的金额。
比如说：
将文明花园A幢所有住户的记录全部显示出来，然后将每户交费的金额加起来，然后统计成一个整数。

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If InStr(Text1, "'") <> 0 Then Exit Sub

Do While i < Adodc1.Recordset.RecordCount + 1
Adodc1.Recordset.Find (" 楼层 = '" & Text1.Text & "'")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then

If Adodc1.Recordset.EOF Then Exit Sub
Adodc1.Recordset.MoveNext
i = i + 1

DataGrid1.Refresh
Else

Text2.Text = Val(Text2.Text) + Val(Adodc1.Recordset("交费金额"))
Adodc1.Recordset.MoveNext
i = i + 1
End If

Loop

End Sub
只实现了统计功能,其他的你自己做做