大虾帮忙看一下？多谢！

帮忙看看错误出在哪里？多谢！
'本地连接
Cn.ConnectionString = "uid=admin;pwd=;driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\datakey.mdb"
Cn.Open
RsTj.Open "select * from daytj", Cn.ConnectionString, adOpenDynamic, adLockOptimistic'服务器连接
Cnw.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Zhouran\ljs\Datakey.mdb;Persist Security Info=False"
Cnw.Open
Rsw.Open "select * from wztj", Cnw, adOpenDynamic, adLockBatchOptimistic'数据操作
 RsTj.MoveFirst
        Do Until RsTj.EOF                          '向服务器端导入数据
             Rsw.AddNew
             Rsw.Fields(1) = RsTj.Fields(0)
             Rsw.Fields(2) = RsTj.Fields(1)
             Rsw.Fields(3) = RsTj.Fields(2)
             Rsw.Fields(4) = RsTj.Fields(3)
             Rsw.Fields(5) = RsTj.Fields(4)
             Rsw.Fields(6) = RsTj.Fields(5)
             Rsw.Fields(7) = RsTj.Fields(6)
             Rsw.Fields(8) = RsTj.Fields(7)
             Rsw.Fields(9) = RsTj.Fields(8)
             Rsw.Fields(10) = RsTj.Fields(9)
             Rsw.Fields(11) = RsTj.Fields(10)
           Rsw.Update
           RsTj.MoveNext
        Loop
        RsTj.Close
        Rsw.Close
        MsgBox "导出数据完毕", vbInformation, "提 示"wztj为空表，daytj表中有数据42条，两表对应的字段类型相同。
在执行的时候停在 Rsw.AddNew行。
提示：实时错误，有搁置改变的行数已超过设置限制