[5分]附件删除代码 出错提示标准表达式中的数据类型不匹配 要怎么改了

Public Sub btnDelete_Click()
    On Error GoTo ErrorHandler
    Dim strMsg As String
    Dim strPath As String
    Dim strSQL As String
    Dim strFile As String
    Dim FSO As Object
    Dim rs As DAO.Recordset
    If Me.sfrList.Form.CurrentRecord < 1 Then
        Exit Sub
    End If
    Me.sfrList.SetFocus
    RunCommand acCmdSelectRecord
    strMsg = "确定要连同相应附件一起删除？"
    If MsgBoxEx(strMsg, vbQuestion + vbOKCancel) = vbCancel Then
        Exit Sub
    End If
    strPath = GetParameter("Attachment Path", dbText, "", , , True)
    If Len(Nz(strPath)) = 0 Then strPath = CurrentProject.Path & "\Attachments\"
    If Left(strPath, 2) = ".\" Then strPath = CurrentProject.Path & Mid(strPath, 2)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    strSQL = "Select * FROM Sys_Attachments Where DataID='" & Me.sfrList![员工编号] & "'"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    Do Until rs.EOF
        strFile = strPath & "\" & rs!AttachmentName
        Debug.Print strFile
        If Dir(strFile) <> "" Then
            Set FSO = CreateObject("Scripting.FileSystemObject")
            If FSO.FileExists(strFile) = True Then   '检测是否存在文件有则删除
                Kill strFile   '删除文件
            End If
            Set FSO = Nothing
        End If
        rs.MoveNext
    Loop
    DAORunSQL "delete * FROM Sys_Attachments Where DataID='" & Me.sfrList![员工编号] & "'"
    rs.Close
    Set rs = Nothing
    DAORunSQL "Delete FROM [客户信息表] Where [员工编号]=" & Nz(Me.sfrList![员工编号], 0)
    Me.RefreshDataList
    Me.btnDelete.SetFocus
ExitHere:
    Exit Sub
ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnDelete_Click()"
    Resume ExitHere
End Sub