Indsæt data i database

Jeg har et script jeg har brugt tit, men pludselig virker det ikke når jeg har lavet lidt rettelser, jeg har vist stirret mig blind på det:

<%
Method= Request.QueryString("method")
Select Case Method

Case "indsaet"

strNavn = Trim(Request.Form("brugernavn"))
strAdgang = Trim(Request.Form("adgangskode"))
strSti = Trim(Request.Form("placering"))

dim Connection
function OpenConnection( DBPath )
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
end function
OpenConnection("C:\Internet\ProLight-kunde-login\kunde.mdb")

SQL = "Insert Into table_user (brugernavn, adgangskode, placering) Values('"&strNavn&"','"&strAdgang&"' , '"&strSti&"')"

Connection.Execute(SQL)

Connection.close
Set Connection=nothing

Response.redirect "oversigt.asp"

End Select
%>

Den giver flg. fejl:
Fejltype:
Microsoft JET Database Engine (0x80004005)
Handlingen skal bruge en opdaterbar forespørgsel.
/drev_c/Internet/ProLight-kunde-login/db4.asp, line 20

linie 2o er: Connection.Execute(SQL)