员工内部调动资料更新问题`

请各位帮帮忙：

问题：比如有 员工基本资表和员工内部弃动两个表 当在员工内部弃动窗体中输入相关新的员工后,在员工基本资表中以与之相对应的员工ID更新相关的记录  如:

员工基本资料表：

员工ID     姓名     性别    部门    工资     职务  

PMC01      XUN      MAN      PMC     2000    PMC

工员内部调动表：（因为员工ID 是据所在部门编号的）

员工ID     新员工ID   姓名     性别`    新部门   工资    新职务

PMC01      AMD01      LIAO      W        AMD     2500     AMD

员工内部调动窗体：

想达到的目的：

当单击“更新资料”事件后，将员工基本资料表中的“员工ID”更新为“新员工ID”值，“部门”更新为“新部门”值，“工资”更新为调动后“工资”，“职务”更新为“新职务”，

条件：子窗体中的原员工ID=员工基本资料表的“员工ID”。

未完成的代码：

Private Sub 更新资料_Click()
On Error GoTo Err_更新资料_Click
'定义字符型变量
Dim STemp As String
Dim STEMP1 As String
'定义数据集变量
Dim rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From 员工基本资料"
'打开“员工基本资”数据表
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '判断子窗中的原工ID是否与员工基本资料的员工ID相等
    If Forms![员工内部调动]![原员工ID] = rs("员工ID") Then
      
        '使用记录集的AddNew方法添加记录
        rs.AddNew
        '把窗体中文本框和组合框内的值赋予记录集中对应的字段
rs("员工ID") = Forms![员工内部调动]![新员工ID]
rs("部门ID") = Forms![员工内部调动]![新部门ID]
rs("职务") = Forms![员工内部调动]![新职务]

rs("基本工资") = Forms![员工内部调动]![新基本工资]

        '使用记录集的Update方法来刷新记录集
           rs.Update
      
        '弹出信息记录“添加完成”的提示信息
    
        MsgBox "员工基本资料更新完成！", vbYesNo, "更新资料完成"
       
   
       
    End If
   
   
    Set rs = Nothing
Exit_更新资料_Click:
    Exit Sub
Err_更新资料_Click:
    MsgBox Err.Description
    Resume Exit_更新资料_Click
End Sub