gemme i databasen

Hej
Bruger access database 2007.
Har noget gammelt kode som jeg har tilrette, men jeg ved ikke om jeg gør det forkert når jeg prøve at gemme. Den siger:

ADODB.Recordset error '800a0e79'
Operation is not allowed when the object is open.
/opret_kreds_db.asp, line 24

Det kan godt være at jeg er kommet til at blande noget kode.

<!-- #include file="db.inc" -->
<%
strSQL = "SELECT * FROM kredse;"
set rs = conn.Execute(strsql)

strKreds               = Trim(Replace(replace(Request.Form("kreds"),"'",""),"<","&lt;"))
strBeskrivelse    = Trim(Replace(replace(Request.Form("beskrivelse"),"'",""),"<","&lt;"))

if len(strkreds) < 1 or strkreds ="" then
  Response.Redirect "opret_kreds.asp?msg=" & Server.URLEncode ("Kreds skal indtasten.")& "&kreds=" & Server.URLEncode(strkreds)& "&beskrivelse=" & Server.URLEncode(strbeskrivelse)
end if

strkreds = Request.form("kreds")
sql = "select * from kredse where kreds = '" & strKreds & "'"
set rs = conn.Execute(sql)
if not rs.eof then
  Response.Redirect "opret_kreds.asp?msg=" & Server.URLEncode ("Kreds eksisterer allerede")& "&kreds=" & Server.URLEncode(strkreds)& "&beskrivelse=" & Server.URLEncode(strbeskrivelse)
end if

'rsAddComments.CursorType = 2
rs.CursorType = 2
rs.LockType = 3
rs.Open strSQL, adoCon
rs.AddNew
rs.Fields("kreds")= Request.Form("kreds")
rs.Fields("beskrivelse")  = Request.Form("kreds")

rs.Update

'Reset server objects
rs.Close
conn.close

Response.Redirect "view_kredse.asp"
%>

En der kan hjælpe med at rense lidt ud ?