如何将一条记录拆分成几条

谢谢煮江品茶老师,但是第二个循环出现语法错误,再有就是这个函数怎么用,我很菜的,还要麻烦您

Function 拆分扎数()
   Dim rs As New ADODB.Recordset
   Dim ssql As String
   Dim num As String
   Dim i As Long, j As Long
   ssql = "select PO from 表1 groud by PO"
   rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   For i = 1 To rs.RecordCount
        num = rs!PO.Value
        ssql = "delete * from 表3 where PO='" & num & "'"
        CurrentDb.Execute ssql
        for j=1 to dsum("扎数","表1",PO='" & num & "'")
            ssql = "insert into 表3 (PO,扎号,码数,颜色,件数) "
            ssql = ssql & "values ('" & num & "',"
            ssql = ssql & j & ",'"
            ssql=ssql & dlookup("码数","表1",PO='" & num & "'") & "','"
            ssql=ssql & dlookup("颜色","表1",PO='" & num & "'") & "',"
            ssql=ssql & dlookup("件数","表1",PO='" & num & "'") & ")"
            CurrentDb.Execute ssql
        Next
        rs.MoveNext
   Next
   rs.Close: rs = Nothing
End Function