谁能帮我 “删除命令”按钮不起作用

Private Sub 删除职员_Click()
On Error GoTo Err_删除职员_Click
Dim STemp As String
Dim i As Integer
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表"查询语句"字符变量赋值
STemp = "Select * From 职员资料"
'打开"职员资料"数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
   '判断"职员资料"表是否为空
   If Rs.RecordCount < 1 Then
      Exit Sub
   End If
   '把记录集的指针指到第一条记录
   Rs.MoveFirst
   For i = 1 To Rs.RecordCount
       '判断记录集中的"职员ID"字段值是否与子窗体中"职员ID"文本框内的值相同
        If Rs("职员ID") = Me![职员资料管理子窗体]![职员ID] Then
           '如果相同 则把该记录删除
           Rs.Delete 1
           Exit For
        Else
           '如果不相同 则移到下一条记录
           Rs.MoveNext
        End If
     Next i
     '弹出"删除完成"的提示信息
     MsgBox "职员:" & Me![职员ID] & "的资料已经删除完成!", vbOKOnly, "删除完成"
     Me![职员资料管理子窗体].Requery
     '释放系统为Rs数据集分配的空间
     Set Rs = Nothing
Exit_删除职员_Click:
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
    Exit Sub
Err_删除职员_Click:
    MsgBox Err.Description
    Resume Exit_删除职员_Click
    Exit Sub
End Sub
【这段代码 不知有木有问题】执行按钮命令无法实现删除功能

下面有附件，

请高手帮忙

点击下载此附件