Min update side virker ikke???

Min Kode:
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/dbsqatar.mdb")
    Conn.Open DSN
   
    strSQL = "Update DB set "
    strSQL = strSQL & "Supplier='" & Request.Form("Supplier") & "' ,"
    strSQL = strSQL & "Service='" & Request.Form("Service") & "' ,"
    strSQL = strSQL & "Pieces='" & Request.Form("Pieces") & "' ,"
    strSQL = strSQL & "Weight='" & Request.Form("Weight") & "' ,"
    strSQL = strSQL & "ETA='" & Request.Form("ETA") & "' ,"
    strSQL = strSQL & "Waybill='" & Request.Form("Waybill") & "' ,"
    strSQL = strSQL & "Comments='" & Request.Form("Comments") & "' "
    strSQL = strSQL & "Where QP0 ='" & Request.Form("QPO") & "'"
her linie 16 -->Conn.Execute(strSQL)
        Conn.Close
        set Conn = Nothing

    Response.Redirect("default.asp")
%>
Fejl i IE 6.0:
Too few parameters. Expected 1.
/jakob/dbret.asp, line 16
jeg går ud fra at det er mit sql statment der ikke er som det skal være men jeg kan ikke se hvad jeg laver galt???