Problem med sletning hvor dato < dato2!

Hvorfor virker dette ikke?
Session.LCID = 1030

dato2 = (date - 28)
dato2 = FormatDateTime(dato2, 1)
dato2 = replace(Dato2, \".\", \"\")

response.write dato2

strConnect = \"Data Source=\" & Server.Mappath(\"salg.mdb\") & \";Provider=Microsoft.Jet.OLEDB.4.0;\"
set conn=server.createobject(\"adodb.connection\")
conn.open strConnect
SQL= \"delete from salg where Dato < \"& dato2 &\" \"
   
conn.Execute(SQL)

Giver fejlen:
12 september 2001
Microsoft JET Database Engine fejl \'80040e14\'

Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket \"Dato < 12 september 2001\".