用excel VBA运行更新查询 – 更新错误

我想使用下面的代码在Excel工作表上运行更新查询：

With db .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source='" & ThisWorkbook.FullName & "'; " & "Extended Properties='Excel 12.0;HDR=YES'" .Mode = adModeReadWrite .Open End With sql_str = "UPDATE [unload_data$] INNER JOIN [action_combos$] ON [unload_data$].action = [action_combos$].action1 " & _ "AND [unload_data$].pick_ticket = [action_combos$].pick_ticket SET [unload_data$].conflict = [action_combos$].invalid " db.Execute (sql_str) 

但是，我得到以下错误：

 Run-time error '-2147467259 (80004005)': The Microsoft Access database engine stopped the process because you and another user are attempting to change the same data at the same time 

现在，如果我在[unload_data$].conflict的SQL语句中硬编码值，它可以正常工作，但不会使用联合表中字段的值进行更新。 我在网上看了一圈，但到目前为止还没有拿出任何答案。