Access VBA想利用ADO执行SQL语句，将表一数据复制并更新部分字段后插入新的表中 ，该怎么做

Question

Access VBA想利用ADO执行SQL语句，将表一数据复制并更新部分字段后插入新的表中

SQL = "insert into 登记历史(备件编码, 登记位置, 关联PU, 关联位, 状态, 更换原因, 登记时间, 班次, 经办人) select " & Table & ".备件编码, '" & ProductInfo(i, 9) & "', " & Table & ".关联PU, " & Table & ".关联位, " & Table & ".状态, '" & ProductInfo(i, 13) & "', '" & Now() & "', '" & CurrentShift & "', '" & User & "' from " & Table & " where " & Table & ".关联PU='" & ProductInfo(i, 0) & "'"
RPDataConnect.Execute SQL, RecordsAffected 

执行后RecordsAffected 为0，没有数据被插入，表中的数据是没问题的应该会有12条记录才对

Answer 1

查询的列名必须和前面插入的列名顺序名称一一对应