Hvorfor virker dette ikke ??

Hej jeg har dette kode:
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/dbsqatar.mdb")
    Conn.Open DSN
   
    Set strSQL = "Delete from DB where QPO = "
    strSQL = strSQL & Request.Querystring("post")
    Conn.Execute(strSQL)
    set strDelSql = Nothing
    Conn.Close
    Set Conn = Nothing

    Response.Redirect("default.asp")
%>
og mit problem er den melder fejl der hvor jeg sætter strSQL, men jeg kan ikke se fejlen, kunne godt lige bruge et hint fra en klog person?