sql语句update更新不了，求大神指教下

lian0753

如何实现动态单元格区域累加（按登记日期进行更新）
不带表头的数据sql语句有没有大神写个语句，太难了不会写
谢谢各位大佬

代码如下，有附件
Sub DoSql4()

    Dim cnn As New Connection
    Dim rs As New Recordset
    Dim Sql As String
    Dim i, j, n, m
    Dim wb
    Set wb = ThisWorkbook.Sheets("入库表")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    j = wb.Range("a1000").End(xlUp).Row
    Sql = "UPDATE [库存表$] a INNER JOIN [入库表$A1:D10] b ON a.商品名 = b.商品名 SET a.数量 = a.数量+b.数量" 'where 商品名 in (select * from [入库表$A10:A18]) "按登记日期就行更新库存表

        rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic

    'ORDER BY 数量 desc
        'Sql = "select * from [库存表$] ORDER BY 数量 desc" '数量累加,按姓名统计
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    Set wb = Nothing

End Sub