按日期查找多列和统计，

haotongfeng

求大师帮我看下这个代码怎么改，谢谢了
Private Sub CommandButton3_Click()
    Dim SQL As String, h, j, x, y

    Me.ListView1.ListItems.Clear
    Set RST = New ADODB.Recordset
    If ComboBox4.ListIndex = -1 Then
       SQL = " select 区域,sum(数量) as 数量 ,类别 ,姓名 from 申请资料  where 申请日期 between #" & DTPicker1 & "# AND " & "#" & DTPicker2 & "# group by 区域"
    Else
        SQL = " select 区域,sum(数量) as 数量 ,类别 ,姓名 from 申请资料  where 申请日期 between #" & DTPicker1 & "# AND " & "#" & DTPicker2 & "# and 区域='" & ComboBox4.Value & "' group by 区域"
    End If
    RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic, adCmdText
    iCount = RST.RecordCount
    For i = 1 To iCount

        ListView1.ListItems.Add , , RST.Fields("区域")
        ListView1.ListItems(i).SubItems(1) = RST.Fields("姓名")
        ListView1.ListItems(i).SubItems(2) = RST.Fields("类别")
        ListView1.ListItems(i).SubItems(3) = RST.Fields("数量")
        RST.MoveNext
    Next i
End Sub