VB连接ACCESS查询并统计总数的问题

所属村组：
比如，就是要达到这样的目的，前三个都是查询的个人信息，唯有第四个要实现自动统计所有村组的人员总计补偿数.00）：
1：

序号Ⅰ凭据号Ⅰ证卡编号Ⅰ姓名Ⅰ所属村组Ⅰ实际报销

276 00007101 3700000 被封 百万村 100，谢谢大家的帮忙.00
277 00007101 3700015 未来 合作村 500，我又是自己摸索着学的VB；3.00
278 00007102 3870221 为了 百万村 300，并显示最总结果（100，就要显示所有与之相对应的数据（两条）、姓名！我这里的每天的数据量实在是太大了；
就这样四个即可：

按照所属出村组查询并实现补偿金额的自动统计结果，既当选择“百万村”时，来帮帮忙吧，想请教各位、凭据号.00
……

在窗体中设置查询条件为！我测试了很多都没有成功：在ACCESS中有这样的一个表.00＝400；4.00+300、证卡编号；2VB连接ACCESS查询并统计总数的问题

在一个窗体中Form1中怎样实现如下功能

实在是没有办法了啊!大家帮帮忙吧!谢谢了啊我希望得到这个的详细代码!有没有能够提供的呢?我的老是出项错误提示

select sum(实际报销) from 数据库名 where 所属村组 like 百万村
上面是实现你所需要的功能的SQL语句

以下是完整模块 imports system.data imports system.io imports system.data.oledb module module1 public cn as new oledb.oledbconnection("provider=microsoft.jet.oledb.4.0;data source=c:\access数据库.mdb") '定义连接---这里请更改为实际数据库路径及名称 public databaserst as integer '用来返回数据库执行结果 public function datamodify(byval str as string) as boolean '进行数据库修改操作函数 dim cmdinsert as new oledbcommand try cmdinsert.commandtext = str cmdinsert.connection = cn if cn.state = connectionstate.closed then cn.open() databaserst = cmdinsert.executenonquery() '用来返回执行的结果 cn.close() return true catch ex as exception messagebox.show(err.description, "error", messageboxbuttons.ok, messageboxicon.error) return false end try end function public function search(byval str as string, byval dgv as datagridview) as boolean '查询 str---查询命令，dgv---datagridview，用来显示数据的控件 dim tb as new datatable try dim ap as new oledb.oledbdataadapter(str, cn) ap.fill(tb) dgv.datasource = tb return true catch ex as exception messagebox.show(err.description, "error", messageboxbuttons.ok, messageboxicon.error) return false end try end function end module '以下是调用方法 datamodify(" insert into aa values ('1','2')")'-------这里是数据库更新操作 search("select bb from aa",datagridview1)'-----------这里是数据表查询操作