这样试一试:
tables(e.Form.name & "_Table1").Fill("Select 名称,规格,单位,SUM(数量) AS 数量 From {固定资产入库} where 入库日期 >= '" & dtp1.Value & "' AND 入库日期 <= '" & dtp2.Value & "' GROUP BY 名称,规格,单位", True)