如何将数据表追加多行

Private Sub 产品编号_AfterUpdate()
If Me!产品编号.Value = DLookup("产品编号", "产品明细", "[产品名称]= '" & Me![产品名称] & "'") Then
If DLookup("产品编号", "产品明细", "[产品名称]= '" & Me![产品名称] & "'") > 0 Then
Dim ssql As String
ssql = "INSERT INTO 纸张名称(产品编号,产品名称,材料名称,尺寸,版面) "
ssql = ssql & "SELECT 产品明细.产品编号,产品明细.产品名称,产品明细.材料名称,产品明细.尺寸,产品明细.版面 "
ssql = ssql & "FROM 产品明细 "
ssql = ssql & "GROUP BY 产品明细.产品编号,产品明细.产品名称,产品明细.材料名称,产品明细.尺寸,产品明细.版面;"
DoCmd.SetWarnings False
DoCmd.RunSQL ssql
End If
End If
Forms![1]![纸张名称].Form.Requery
End Sub

这样不能单个产品名称追加

请高手指教