Undantag inträffade...?

Hej!

När jag skriver denna kod

<!-- #include file = "adovbs.inc" -->

<%
	Dim objMail
	Set objMail = Server.CreateObject("CDONTS.NewMail")
  
	objMail.From = "andreazz1986@hotmail.com"
	objMail.Subject = "Tävling"
	objMail.To = "andreazz1986@hotmail.com"
	objMail.Body = "Fråga 1: " & Request.form("fraga 1") & vbcrlf & vbcrlf&_
		       "Fråga 2: " & Request.form("fraga 2") & vbcrlf & vbcrlf&_
		       "Fråga 3: " & Request.form("fraga 3") & vbcrlf & vbcrlf&_
		       "Fråga 4: " & Request.form("fraga 4") & vbcrlf & vbcrlf&_			
		       "Fråga 5: " & Request.form("fraga 5") & vbcrlf & vbcrlf&_
		
		       "E-mail: " & Request.form("e-mail") & vbcrlf & vbcrlf&_
		       "URL: " & Request.form("url") & vbcrlf & vbcrlf&_
		       "URL Banner: " & Request.form("urlbanner")
	objMail.Send
 
	set objMail = nothing

	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/tavling.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	strSQL = "SELECT * FROM tavling"
	recset.open strSQL, connect, adopenstatic, adlockoptimistic
	recset("summabidrag") = recset("summabidrag") +1  
	recset.update

%>

Då blir det detta felmeddelande:

Feltyp:
(0x80020009)
Undantag inträffade. 
/Ampy/senttavling.asp, line 34

Rad 34:

	recset("summabidrag") = recset("summabidrag") +1

Varför blir det fel?