&nbsp;StrTempSql = "select substring(区号,1,2),sum(实用水量),sum(水费金额+滞纳金+附加费+排污费+水资源费),COUNT(DISTINCT 用户号) 实交户 from 抄收数据表 " &amp; _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " WHERE (抄表日期 &gt;='" &amp; StartRQ &amp; "' and 抄表日期 &lt;='" &amp; EndRQ &amp; "')&nbsp; and 实用水量&gt;=0 and (substring(区号,1,2)&gt;='" &amp; StartQH &amp; "'&nbsp; and substring(区号,1,2)&lt;='" &amp; EndQH &amp; "') " &amp; _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "group by substring(区号,1,2) ORDER BY substring(区号,1,2)"<BR>&nbsp;&nbsp;&nbsp; Set rs = Conn.OpenRecordset(StrTempSql, dbReadOnly)