adodb update+select 语句提示 “操作必须使用一个可操作的查询”
adodb update+select 语句提示 “操作必须使用一个可操作的查询”，网上说是access 不支持update带select子查询，不只如何解决？还请大牛帮忙看一下：以下是代码，代码的目的是根据子查询Sql1的结果，更新[20210604$]的“总库存”字段：
Sub kucun()
Dim cnn As Object, rst As Object
Dim Mypath$, Datapath$, Str_cnn$, Sql1$, Sql2$
Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
'绑定ADO
Mypath = ThisWorkbook.FullName
Datapath = ThisWorkbook.Path & "\库存.xlsx"
Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
cnn.Open = Str_cnn
'建立数据连接
Sql1 = "select 物料代码, sum(基本单位数量) as 总库存 from [Excel 12.0;DATABASE=" & Datapath & "].[即时库存$] group by 物料代码"
Sql2 = "update [20210604$]a Left Join (" & Sql1 & ")b on a.料号=b.物料代码 set a.总库存=b.总库存"
cnn.Execute (Sql2)
cnn.Close
Set cnn = Nothing
End Sub
