Excel SQL VBA обновление 2 таблицы доступа

Question

как мне создать Excel VBA, где он будет обновлять 1 таблицу, в то время как другая будет добавлять данные в другую таблицу. Ниже мой код для добавления таблицы (tbl_Raw). Новая таблица tbl_assign с 3 столбцами. 2 столбца info находится в приведенном ниже коде, а 3-й столбец - просто отметка времени, указывающая, когда он был обновлен, но размещен в другой таблице.

    On Error GoTo errHandler

        Dim cnn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim i As long, X As long
        Dim varr As String

        If Me.labelChild.Caption = "Child Ref #" Then
            MsgBox "You must enter Child Case.", vbOKOnly Or vbInformation, "Insufficent data"
            GoTo CleanUp
        End If

        Set cnn = New ADODB.Connection 
        varr = Me.labelChild.Caption
        cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\10.8.1.62\Chimp Change\Analysis\Database\ChimpDB.accdb"
        Set rs = New ADODB.Recordset 'assign memory to the recordset
        rs.Open "SELECT Parent_Ref, Child_Ref, Analyst FROM tbl_Raw WHERE Child_Ref = """ & varr & """", ActiveConnection:=cnn, CursorType:=adOpenDynamic, LockType:=adLockOptimistic, Options:=adCmdText

        If rs.EOF And rs.BOF Then
            MsgBox "There are no records in the recordset!", vbCritical, "No Records"
            GoTo CleanUp
        End If

        With rs
            rs!Analyst = Me.Agents.Value
            rs.Update
        End With

        ImportCasesForm
        Me.lstCases.RowSource = "CasesList"
        MsgBox "Congratulations! The Case has been assigned", vbInformation, "Assign successful"

    CleanUp:
        If Not rs is Nothing then 
            rs.close
            set rs = nothing
        end if
        If Not cnn is Nothing then 
            cnn.close
            set cnn = nothing
        end if  
        Exit Sub

    errHandler:
        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Load Cases"
        GoTo CleanUp
        End Sub

Не знаю, нужно ли мнесделать SUB или просто настроить существующий код добавления, чтобы добавить в другую таблицу.

Спасибо.