窗体文本框内容如何同时写入两个表

Private Sub CmdStudentMngSave_Click()
On Error GoTo Err_CmdStudentMngSave_Click
        '打开“业务新增表”表
    Set rs = New ADODB.Recordset
    StrTemp = "Select * From 业务新增表 WHERE [电路编号]='" & 电路编号 & "';"
    rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        If rs.EOF Then
            rs.AddNew
            rs("电路编号") = Me![电路编号]
        End If
        rs("区域") = Me![区域]
        rs("网点名称") = Me![网点名称]
        rs("电路类型") = Me![电路类型]
        rs("A端地址") = Me![A端地址]
        rs("Z端地址") = Me![Z端地址]
        rs("客户名称") = Me![客户名称]
        rs("路由信息") = Me![路由信息]
        rs("A端设备") = Me![A端设备]
        rs("Z端设备") = Me![Z端设备]
        rs("业务类型") = Me![业务类型]
        rs("带宽") = Me![带宽]
        rs("第一IP地址") = Me![第一IP地址]
        rs("第二IP地址") = Me![第二IP地址]
        rs("开通时间") = Me![开通时间]
        rs.Update
        rs.Close
    Set rs = Nothing
    
    '打开“库存表”表
    Set rs = New ADODB.Recordset
    StrTemp = "Select * From 库存表 WHERE [电路编号]='" & 电路编号 & "';"
    rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        If rs.EOF Then
            rs.AddNew
            rs("电路编号") = Me![电路编号]
        End If
        rs("区域") = Me![区域]
        rs("网点名称") = Me![网点名称]
        rs("电路类型") = Me![电路类型]
        rs("A端地址") = Me![A端地址]
        rs("Z端地址") = Me![Z端地址]
        rs("客户名称") = Me![客户名称]
        rs("路由信息") = Me![路由信息]
        rs("A端设备") = Me![A端设备]
        rs("Z端设备") = Me![Z端设备]
        rs("业务类型") = Me![业务类型]
        rs("带宽") = Me![带宽]
        rs("第一IP地址") = Me![第一IP地址]
        rs("第二IP地址") = Me![第二IP地址]
        rs("开通时间") = Me![开通时间]
        rs.Update
        rs.Close
    Set rs = Nothing
    StudentMngFrm.Requery

Exit_CmdStudentMngSave_Click:
    Exit Sub
Err_CmdStudentMngSave_Click:
    MsgBox Err.Description
    Resume Exit_CmdStudentMngSave_Click
End Sub