Problem med at opdater til en ms sql database

Hvad er der lige galt her:

sql= "SELECT Design FROM System Where KundeID = " & Request.QueryString("KundeID")
rs.Open SQL, Conn, 3, 3

    If Request.QueryString("Type") = "Design" Then
    rs("Design") = Request.Form("Design")
    rs.update
    End If

    If Request.QueryString("Type") = "Menu" Then
    rs("DesignMenu") = Request.Form("Design")
    rs.update
    End If

Rs.Close
Set sql = Nothing

Response.write "Designet er nu opdateret!"
Response.end

Den melder ingen fejl og skriver fint som den skal at designet er nu opdateret! Men den gemmer ikke informationerne i database.

Informationern overføres fint til siden. Det har jeg undersøgt med følgende:

Response.write Request.Form("Design") & "<br>"
Response.write Request.QueryString("Type") & "<br>"

Der udskriver:
1
Design

Og det er det den skal udskrive!