Erro com update em ASP

[Wnagot]

Amigos, estou tendo dificuldade com o comando abaixo em uma pag ASP, poderiam me ajudar? Muito Obrigado!

Código:

<%

Dim Conn

Dim RS

Set Conn = Server.CreateObject("ADODB.Connection")

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\massacritica\dados\massa.mdb;"

Conn.Open ConnString

InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id

Set RS = Conn.Execute (InstrucaoSQL)

Conn.Close

Set RS = Nothing

Set Conn = Nothing

Response.redirect("atualiza_ok.asp")

%>

ERRO:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/grava_altera.asp, line 36

InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^