主题：SQLGroupTableBuilder统计报错

Dim b As New SQLGroupTableBuilder("统计表1","事件汇总")

b.ConnectionName = "data"

Dim Filter As String

Filter = "飞行日期 >= #1/9/2015# And 飞行日期 <= #30/9/2015"#"

b.filter = filter

b.Groups.AddDef("事件名称") '分组

b.Totals.AddDef("次数")'对数量进行统计

b.Build '生成统计表

MainTable = Tables("统计表1")