vil ikke slette fra databasen

Kan ikke få følgende til at fungere, hvorfor ????

----------slet_ret.asp--------

<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db_mig.mdb")
Conn.Open DSN


strSQL="SELECT DISTINCT start, slut, navn, tlf, bookingid FROM datoforesp"
set rs = conn.execute(strSQL)

%>
<table width="500" border="0" cellspacing="0" cellpadding="0">

  <%
do
%>
 
    <tr>
      <td height="20" class="txt2" width="127">Fra:</td>
      <td height="10" class="txt3" width="201"><%=rs("start")%></td>
      <td height="10" class="linkcelle" width="90" align="center">
<a href="" onClick="PopWin6('slette_booking.asp?bookingid=<%= rs("bookingid")%>');return false;">
        <font face="Verdana, Arial" size="2" color="#000000"><b><font color="#CC0000">slette</font></b></font></A></td>
      <td height="10" class="txt2" width="82">&nbsp;</td>
    </tr> 
  <%
rs.movenext
loop while not rs.eof
conn.close
set conn = nothing
%>
</table>


--------------slette_booking.asp-------------

<%@LANGUAGE="VBSCRIPT"%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db_mig.mdb")

ID = (Request.QueryString("bookingid"))
strSQL = "Delete from datoforesp where bookingid = "  & ID
conn.execute(strSQL)


%>

<body leftmargin="0" topmargin="0">
       
        <table width="95%" height="130" border="0" cellspacing="0">
          <tr>
            <td class="txt2" width="101" height="20">
Følgende<% Response.write Request.Querystring ("bookingid") %>, er nu slettet!
</td>
         
          </tr>
         
        </table>


får følgende fejlmeddelse

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "bookingid =".
test/slette_booking.asp, line 30

som er  conn.execute(strSQL)

HJÆLPPPP