如何复制记录到另一个表中

请教一下老师们,
在窗体中,如何做到点击"OK"后,将子窗体的数据复制到表2中.谢谢.

Private Sub Command8_Click()
Dim rst As DAO.Recordset, accrst As DAO.Recordset, FNum As Long
'-- 设置记录源
    Set rst = Me.[表1 查询 子窗体].Form.Recordset
    rst.MoveLast
    Set accrst = CurrentDb.OpenRecordset("SELECT * FROM 表2")
'-- 循环写入
    Do Until rst.EOF
        accrst.AddNew
            For FNum = 0 To rst.Fields.Count - 1
                accrst.Fields(FNum) = rst.Fields(FNum)
            Next
        accrst.Update
        rst.MoveNext
    Loop
'-- 释放变量
    Set rst = Nothing: Set accrst = Nothing
End Sub