主题：至少一个参数没有被指定值

试试

cmd.CommandText = "Select [_identify],编号,客户信息,支付方式,服务内容,日期,价格 from {主表} where " & filter1 & " and " & filter2 & " order by 日期 desc"

Dim filter2 As String = "(支付方式 like '月付%' and 服务内容 like '包月*') or (服务内容 like '包年*')"

要改成

Dim filter2 As String = "((支付方式 like '月付%' and 服务内容 like '包月*') or (服务内容 like '包年*'))"

e.Form.Controls("Table2").Table.Fill("Select *")

改成

e.Form.Controls("Table2").Table.Fill("Select [_identify],编号,客户信息,支付方式,服务内容,日期,价格 from {主表} where " & filter1 & " and " & filter2 & " order by 日期 desc", "acc_test", false)

Dim filter2 As String = "(支付方式 like '月付%' and 服务内容 like '包月*') or (服务内容 like '包年*')"

要改成

Dim filter2 As String = "((支付方式 like '月付%' and 服务内容 like '包月%') or (服务内容 like '包年%'))"

或者，你单独测试filter2的条件，删减条件测试。应该是你逻辑有问题。

参考

http://www.foxtable.com/webhelp/scr/3233.htm