Syntax error (missing operator)

Ae galera beleza!?Vamos direto ao ponto: Tenho esse codigo:

<%Option ExplicitResponse.Expires = 0Dim objConn, strQuery, sql_query, RsQuery, v_consultor, v_ano, v_mes, v_dia, v_info, id, V_empresaDim ObjRsv_consultor = Request.Form("consultor")v_ano = Request.Form("ano")v_mes = Request.Form("mes")v_dia = Request.Form("dia")v_empresa = Request.Form("empresa")v_info = Request.Form("info")if v_info = "" then	v_Info = "Não Definido"end ifid = Request.Form("ID")Set objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("santanna_agenda.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"strQuery = "UPDATE agenda SET DB_Consultor= '"&v_consultor&"', DB_Dia = '"&v_dia&"', DB_Mes ='"&v_Mes&"', DB_Ano ='"&v_Ano&"', DB_Info ='"&v_Info&"' WHERE ID = "&id&" "On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothing If Err ThenResponse.Write (Err.Description)else Response.Redirect("agenda_inicial.asp")end If%>

Só que esse codigo infeliz tá dando esse erro : [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID='.;

OBS: esse ID é um botão "radio"

Já tentei de outras maneiras mas nenhuma da certo!, Oq pode ser?

Grato

Vinicius Sant'Anna