怎样里一个表内批量添加查询记录，谢谢了
Private Sub Command2_Click()
Dim i As Integer, h As Integer
h = Adodc1.Recordset.RecordCount
For i = 1 To 10
cnn.Execute ("insert into 成品档案 values ('" & Adodc1.Recordset.Fields(0) & "','" & Adodc1.Recordset.Fields(1) & "','" & Adodc1.Recordset.Fields(2) & "','" & Adodc1.Recordset.Fields(3) & " ','" & Adodc1.Recordset.Fields(4) & "' )")
Adodc1.Recordset.MoveNext
Next i
MsgBox "记录添加成功！", , "成品管理系统"
我想将 Adodc1查询的所有记录批量加入成品档案的表内，怎么代码执行后说in附近有错误，可是单个添加代码是对的，帮忙看看，谢谢了
[解决办法]
在for之前是不是要把RECORDSET指针MOVE到第一个记录上啊
