Error de sintaxis

Mira estoy trabajando en un proyecto que consiste en agregar información a una BD, y tengo un formulario para actualizar los datos pero al parecer hay un error de sintaxis y me sale lo siguiente:
Microsoft JET Database Engine error '80040e14'
Error de sintaxis (falta operador) en la expresión de consulta 'EmployeeID ='.
/saag/html/update.asp, line 7
EL CODIGO ES ESTE
<%@ Language=VBScript %>
<%
objconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("131415.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open objconn
if NOT isempty(Request.Form("Update")) then
conn.Execute "update CIEmpDir set " _
& "Name = '" & Request.Form("Name") & "', " _
& "EmailAddress = '" & Request.Form("EmailAddress") & "', " _
& "PhoneNumber = '" & Request.Form("PhoneNumber") & "', " _
& "Department = '" & Request.Form("Department") & "', " _
& "compra = '" & Request.Form("compra") & "', " _
& "estado = '" & Request.Form("estado") & "' where " _
& "EmployeeID = " & Request.Form("EmployeeID")
response.redirect "./manage_data_menu.asp"
else
set RSEmp = conn.Execute("Select * from CIEmpDir where EmployeeID = " _
& Request.QueryString("EmployeeID"))
end if
%>
Ojala me podas ayudar gracias.