这个动态“分组统计报表”错误在哪里？请高手指点。谢谢

Question

        Dim cn     As ADODB.Connection
        Dim rs     As ADODB.Recordset
        Dim Sql     As String, strSql       As String
        Dim gID     As Integer, i       As Integer
        
        '连接数据库，打开记录集
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        
        cn.Provider = "MSDataShape "                 '一定要这句,因为要用到ADO的SHAPE命令
        cn.Open "Data Provider=Microsoft.Jet.OLEDB.3.51; " & "Data Source= " & App.Path & "\db1.mdb;" & "Persist Security Info=False; " & "Jet OLEDB:"
        rs.CursorLocation = adUseClient
        Sql = "select * from tb_sell_detailed where billdate BETWEEN '" & DTPStar.Value & "' AND '" & DTPEnd.Value & "'"
        strSql = "SHAPE { " & Sql & " } " & "AS 分组统计 COMPUTE 分组统计 BY 'billdate' "
        Set rs = New ADODB.Recordset
        Debug.Print "strsql:" & strSql
        Debug.Print "cn:" & cn
        rs.Open strSql, cn, adOpenStatic, adLockReadOnly ‘提示这里：标准表达式中类型不匹配，请高手点下迷津
        DataReport2.Show

Answer 1

1.Microsoft.Jet.OLEDB.3.51 改为Microsoft.Jet.OLEDB.4.0
2."select * from tb_sell_detailed where billdate BETWEEN #" & DTPStar.Value & "# AND #" & DTPEnd.Value & "#" 

Answer 2

COMPUTER 后面应该是合计函数（SUM、AVG、COUNT...），光给个别名算什么。