用ado把excl导入到access,后面几列导不进来？

...

For i = 0 To rseEx.RecordCount - 1
    rseAc.AddNew
    rseAc("编号") = rseEx("编号")
    rseAc("姓名") = rseEx("姓名")
    rseAc("编码1") = rseEx("编码1")
    rseAc("名称1") = rseEx("名称1")
    rseAc("标准1") = rseEx("标准1")
    rseAc("金额1") = rseEx("金额1")
    rseAc("编码2") = rseEx("编码2")
    rseAc("名称2") = rseEx("名称2")
    rseAc("标准2") = rseEx("标准2")
    rseAc("金额2") = rseEx("金额2")
    
    DoEvents
  
   
    rseAc.Update
    rseEx.MoveNext
Next i

...

For i = 0 To rseEx.RecordCount - 1
    rseAc.AddNew
    rseAc("编号") = rseEx("编号")
    rseAc("姓名") = rseEx("姓名")
    rseAc("编码1") = rseEx("编码1")
    rseAc("名称1") = rseEx("名称1")
    rseAc("标准1") = rseEx("标准1")
    rseAc("金额1") = rseEx("金额1")
    rseAc("编码2") = rseEx("编码2")
    rseAc("名称2") = rseEx("名称2")
    rseAc("标准2") = rseEx("标准2")
    rseAc("金额2") = rseEx("金额2")

   '原代码没有！
    rseAc("名称3") = rseEx("名称3")
    rseAc("标准3") = rseEx("标准3")
    rseAc("金额3") = rseEx("金额3")
    
    DoEvents    
    rseAc.Update
    rseEx.MoveNext
Next i

....

你的代码后面几列没写。