怎样里一个表内批量添加查询记录，谢谢了

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到第一个记录上啊

补充：VB ,  数据库(包含打印，安装，报表)