Uppdatering av databas.

Jag håller på med ett rakning system och det funkar bra. Men jag har problem med ett admin system där man ska kunna uppdaterad databasen ifrån.
Sidan som slänger fram lagen ser ut såhär.

<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
SQL = "SELECT * FROM lag Order by poeng Desc"
Set RS = Connection.Execute(SQL)
%> <%
i = 0
Do Until RS.EOF or i = 10
%>

<%=Rs("lag1")%>

<%=Rs("land")%>

<%=Rs("poeng")%>

<% i = i +1
Rs.MoveNext
Loop %>

Såhär långt funkar allt bra och den slänger fram lagen efter poäng ordning. Men när ja ska uppdatera den så har jag gjort såhär.

En Add sida:
<form action="Add_lag.asp" method="POST">
Lag:
<input type="TEXT" name="Lag1" size="40">
<br>
<br>
Land:
<input type="TEXT" name="Land" size="20">
<br>
<br>
Poäng
<input type="TEXT" name="poeng" size="20">
<br>
<br>
<input type="SUBMIT" value="Lägg till" name="SUBMIT"

Sen Add_lag sida:
""Det är denna som krånglar""

<%
'vi hämtar informationen som man har fyllt i
Lag1 = Request.form("lag1")
land = Request.form("land")
poeng = Request.form("poeng")

'Kollar så att man inte har glömt någon ruta
If Lag1 = "" Then

Response.write("Du måste fylla i ett lag")

ElseIf land = "" Then

Response.write("Du måste fylla i ett land")

Else

'öppnar databasen
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
SQL = "Select * from lag"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql, conn, 3, 3

'Lägger till informationen
Rs.Addnew

Rs("lag1") = lag1
Rs("land") = land
Rs("poeng") = poeng

Rs.Update

Rs.close
Conn.close

Response.write("Du har nu lagt till ett lag med namnet:\<br\>")
Response.write( lag1 & "\<br\>")
Response.write("Tillbaka till \<a href='index.asp'\>Listan\</a\>")

End if
%>

Jag får error messet
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/news/Add_Pers_Do.asp, line 30

Line 30 ser ut såhär.
Rs.Open sql, conn, 3, 3