Problemer med at update Access

---------------KODEN---------------------------
<%
Case "ret"
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("gba.mdb")
conn.open DSN

IF request.form("submit") <> "" THEN

    str1 = request.form("overskrift")
    str2 = request.form("teaser")
    str3 = request.form("forfatter")
    str4 = request.form("tekst")
    str5 = request.form("billed")

strSQL3 = "UPDATE div_text SET "

    strSQL3 = strSQL3 & "overskrift='" & str1 & "'"
    strSQL3 = strSQL3 & ", teaser='" & str2 & "'"
    strSQL3 = strSQL3 & ", forfatter='" & str3 & "'"
    strSQL3 = strSQL3 & ", tekst='" & str4 & "'"
    strSQL3 = strSQL3 & ", billed='" & str5 & "'"
   
strSQL3 = strSQL3 & " WHERE idtext=" & request.querystring("id")

Conn.Execute(strSQL3)

response.Redirect("skrivnyhed.asp")

ELSE

(linje 152) set rs = Conn.Execute("Select * from div_text where idtext =" & request("id"))
%>
  <form name="form1" action="skrivnyhed.asp?mode=ret&id<% =rs("idtext") %>" method="post">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>Overskrift:<br>
      <input type="hidden" name="slags" value="nyhed">
      <input name="overskrift" type="text" size="40" value="<% =rs("overskrift") %>"></td>
  </tr>
  <tr>
    <td>Teaser: (max 255 anslag)<br> <textarea name="teaser" cols="50" wrap="VIRTUAL"><% = rs("teaser") %></textarea></td>
  </tr>
  <tr>
    <td>Forfatterr:<br>
      <select size="1" name="forfatter">
            <%
                Set Connect = Server.CreateObject("ADODB.Connection")
                Connect.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gba.mdb"))
                SQL ="SELECT navn FROM div_red ORDER BY navn"
                Set rs = Connect.Execute(SQL)%>

            <%Do While Not rs.eof %>
        <option value="<% = rs("navn")%>"><% = rs("navn")%></option>
        <%
        rs.MoveNext
    Loop
        rs.Close
    Set rs = Nothing
        %>
        <% set rs = Conn.Execute("Select * from div_text where idtext =" & request("id")) %>
      </select></td></tr>
      <tr><td>billed: (husk filnavn!)<br>
      <input name="billed" type="text" size="40" value="<% =rs("billed") %>"></td></tr>
      <tr><td>Tekst:<bR><textarea name="tekst" cols="50" rows="10" wrap="VIRTUAL"><% =rs("tekst") %></textarea></td></tr>
  <tr>
    <td><input type="submit" value="Skriv"></td>
  </tr>
</table>
</form>
<% END IF
        rs.Close
    Set rs = Nothing
%>
----------------FEJLEN----------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'idtext ='.

/jim/admin/skrivnyhed.asp, line 152