请教一个VB问题.俺是小虾，迩是大虾！

本地为ACCESS表，服务器为SQL表。
'打开本地数据库
  Set rs = New ADODB.Recordset
      sql = "select * from HistTable22"
         
      rs.Open sql, cn, adOpenStatic, adLockOptimistic
      rs.MoveFirst
             
'打开服务器数据库
  Set rssql = New ADODB.Recordset
      str = "SELECT * from f1"
      rssql.Open str, cnnsql, adOpenDynamic, adLockOptimistic
     
      For i = 1 To rs.RecordCount Step 1
        rssql.AddNew
          For j = 0 To 3 Step 1
            rssql.Fields(j) = rs.Fields(j)
          Next j
        rssql.Update

        rs.Move i
      Next i

请大虾们对照上面程序，假设rs记录集有100条记录，俺问的是：用rs.move i 或rs.movenext为什么不能让rs记录自己往下移，逐条传到服务器表中呢？（目前故障现象：在传送了第一条记录后，传送第二条记录运行到rssql.update时出现违反了Primary Key约束，不能插入重复的问题）

---

本地为ACCESS表，服务器为SQL表。
'打开本地数据库
  Set rs = New ADODB.Recordset