VB6使用datagrid映射过来的数据无法保存！！！求解

[WienL]

自制软件，功能有待完善，现在碰到个问题，快烦死人了：
DataGrid控件绑定了Adodb连接的数据库，数据显示啥都没问题，然后又调用了另一个数据库，表中字段都对应好了，也能把数据复制过来，但是DataGrid就是不保存数据，删除也提示“无法为更新行定位……”，为什么在DataGrid中手动输入的就会自动保存啊，映射过来的就不行！
第一个删除有问题，第二个就没问题！
代码：
For i = 1 To frmexchange.List5.ListCount
c(i) = frmexchange.List5.List(i - 1)
d(i) = frmexchange.List6.List(i - 1)
Next
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/TransDataDB.mdb" & ";Persist Security Info=False"
rec2.Open "OutputData", con, adOpenKeyset, adLockOptimistic

For i = 1 To frmexchange.List5.ListCount
rec2.AddNew
rec2.Fields(c(i)) = rs1.Fields(d(i))
rec2.MoveNext
End If
Next
Set con = Nothing
Set rec2 = Nothing

[WienL]

再顶一波

[WienL]

顶顶顶

[WienL]

求大神相助！！！