请看看这段代码那个地方表达式中数据类型不匹配

ydot

我在EXCEL的VBA里编写了如下代码：

1. Public Sub 技巧11()
   
2.     Dim cnn As ADODB.Connection
   
3.     Dim rs As ADODB.Recordset
   
4.     Dim myWorkName, workname2 As String, n As Integer, Sql As String
   
5.     Dim ws As Worksheet
   
6.     Set ws = Worksheets("汇总")
   
7.     ws.Cells.Clear
   
8.     '建立与当前工作簿的连接
   
9.     Set cnn = New ADODB.Connection
   
10.     With cnn
    
11.         .Provider = "microsoft.jet.oledb.4.0"
    
12.         .ConnectionString = "Extended Properties=Excel 8.0;" _
    
13.             & "Data Source=" & ThisWorkbook.FullName
    
14.         .Open
    
15.     End With
    
16.     Sql = "SELECT [排名$].排名, t.NSRSBH, t.NSRMC, sum(增值税2012_1) as 增2012_1 FROM (SELECT NSRSBH, NSRMC, IIf(year(RKRQ)=2012 AND month(RKRQ)=1,sum(SE),0) AS 增值税2012_1 FROM [入库$] WHERE ZSXM_DM='增值税' GROUP BY NSRSBH, NSRMC,RKRQ) AS t ,[排名$] where t.NSRSBH=[排名$].NSRSBH GROUP BY t.NSRSBH, t.NSRMC, [排名$].排名 ORDER BY [排名$].排名"
    
17.     Set rs = New ADODB.Recordset
    
18.     rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
    
19.     n = rs.RecordCount
    
20.     If n > 0 Then
    
21.         MsgBox "查询到 " & n & " 条符合条件的记录。", vbInformation
    
22.     Else
    
23.         MsgBox "没有查询到符合条件的记录。", vbInformation
    
24.     End If
    
25.     '复制标题
    
26.     For i = 1 To rs.Fields.Count
    
27.         ws.Cells(1, i) = rs.Fields(i - 1).Name
    
28.     Next i
    
29.     '复制查询到的记录
    
30.     ws.Range("A2").CopyFromRecordset rs
    
31.     rs.Close
    
32.     cnn.Close
    
33.     Set rs = Nothing
    
34.     Set cnn = Nothing
    
35.     Set ws = Nothing
    
36. End Sub
    

复制代码

运行时显示“运行时错误‘-2147217913’(80040e07) 标准表达式中数据类型不匹配 ”，要是删了SQL语句中的“ sum(增值税2012_1) as 增2012_1”，就能运行了，请问这句我该如何写

ydot

有人知道哪出问题了吗？在线等，着急啊

wuxiang_123

请上传附件测试。