求教：拆分单条记录为多条记录

下载了一个拆分单条记录为多条记录的实例，想修改一下做自己想要的，无奈基础太差，请老师们指教。点击下载此附件

想在输入逗号分隔的人员后，自动在子表中单人列出来，求问怎么改代码？

Private Sub 施工人员_AfterUpdate()
Dim Rs1 As New ADODB.Recordset, Rs2 As New ADODB.Recordset, myStr1 As String, myStr2 As String, Ar As Variant, i As Integer, j As Integer, k As Integer
    myStr1 = "Select * From 表1"
    Rs1.Open myStr1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    myStr2 = "Select * From 表3"
    Rs2.Open myStr2, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        Do Until Rs1.EOF
            Ar = Split(Rs1!施工人员, ",")
            For i = 0 To UBound(Ar)
            If Ar(i) <> "" Then
                Rs2.AddNew
                Rs2!施工人员 = Ar(i)
                Rs2!施工单编号 = Rs1!施工单编号
                Rs2!施工单位 = Rs1!施工单位
                Rs2!单人工时 = Rs1!单人工时
                Rs2.Update
            End If
            Next
        Rs1.MoveNext
        Loop
    Set Rs1 = Nothing
    Set Rs2 = Nothing
    
    
End Sub