Så er den gal igen! Virker ikke!

Kan nogen se, hvorfor dette her ikke virker? Får en fejlmeddelelse, som jeg aldrig har set før.

<%
     
reservation=Request.Form("valg")


ConnString = "DSN=dsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

strSQL = "SELECT  xtype FROM test WHERE reservation='" & request.form("valg")& "'"
set rs = Conn.Execute(strSQL)
rs("xtype")=Request("xtyp")

Conn.Close
Set Conn = Nothing
%>
<%


IF Request("xtyp")="1" then
response.write "Dette er skema 1"

elseif Request("xtyp")="2" then
response.write "Dette er skema 2"

elseif Request("xtyp")="3" then
response.write "Dette er skema 3"

elseif Request("xtyp")="4" then
response.write "Dette er skema 4"
end if
%>

ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.