当离职表中的员工ID=员工基本资表中的员工ID时删除该员工

我想当离职表中的员工ID=员工基本资表中的员工ID时,在员工基本资料表中删除该员工

Private Sub 过数离职员工资料_Click()
On Error GoTo ERR_过数离职员工资料_Click
Dim I As Integer '循环变量
Dim STEMP As String '临时变量
Dim RS As New ADODB.Recordset '定义数组变量
Dim RS1 As New ADODB.Recordset

'打开数据表
STEMP = "SELECT * FROM 离职表"
RS.Open STEMP, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开离职表数据集

STEMP = "SELECT * FROM 离职登记表"
RS1.Open STEMP, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If RS.RecordCount <= 0 Then
MsgBox "目前记录为空,无离职员工可过数!", vbOKOnly, "离职员工不能为空!"
Exit Sub
Else
RS.MoveFirst
For I = 1 To RS.RecordCount
RS1.AddNew
RS1("员工ID") = RS("员工ID")
RS1("部门ID") = RS("部门ID")
RS1("职务") = RS("职务")
RS1("姓名") = RS("姓名")
RS1("身份证ID") = RS("身份证ID")
RS1("性别") = RS("性别")
RS1("学历") = RS("学历")
RS1("入职日期") = RS("入职日期")
RS1("基本工资") = RS("基本工资")
RS1("家庭地址") = RS("家庭地址")
RS1("备注") = RS("备注")
RS1.Update
RS.MoveNext
Next I
Do While Not (RS.EOF)
'删除员工基本料中的对应员工资料
STEMP = "DELETE * FROM 员工基本资料 "
        STEMP = STEMP & "WHERE 员工ID=" & RS("员工ID") & ""
        '使用DoCmd对象的RunSQL方法执行查询
        DoCmd.RunSQL STEMP
Loop
STEMP = "DELETE * FROM 离职表"
DoCmd.RunSQL STEMP
End If
MsgBox "过数成功", vbOKOnly, "过数成功"
EXIT_过数离职员工资料_Click:
Exit Sub
ERR_过数离职员工资料_Click:
MsgBox Err.Description
Resume EXIT_过数离职员工资料_Click
End Sub

Private Sub 离职表_子窗体_Enter()
Me.过数离职员工资料.Enabled = True
Me.过数调动员工资料.Enabled = False
End Sub