INSERT INTO sætning

Jeg er snart træt af INSERT INTO sætninger...
Jeg genanvender noget af det jeg har brugt på en anden side hvor det virker...

Mit problem er at den siger at der er en syntaksfejl i INSERT INTO sætningen...

fil1.asp ser således ud:

<% Option Explicit %>

<% Dim user, pass
    user = Trim(Request.Form("user"))
    pass = Trim(Request.Form("pass"))

Dim cn, cnstr, sti
sti = server.mappath("db.mdb")
set cn = server.createobject("adodb.connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source=" & sti & ";"
cn.connectionstring = cnstr
cn.open

Dim rs, sql
set rs = server.createobject("adodb.recordset")
sql = "Select * from users Where brugernavn='"& user & "' And password='" & pass & "';"
rs.open sql, cn

If Not rs.eof Then
    Session.contents("crew") = True
    Session("brugernavn") = rs.fields("brugernavn")
    Session("password") = rs.fields("password")
    Session("IP") = Request.ServerVariables("REMOTE_ADDR")
    Session("dato") = date

    Response.Redirect("fil.asp")
   
Else Session.contents("crew") = Not True
    Response.Redirect("login.asp?fejl=1")
End If   

rs.close
set rs = nothing
cn.close
set cn = nothing

%>

Fil2 ser således ud:

<% Dim cn, cnstr, sql
sti = server.mappath("db.mdb")
set cn = server.createobject("adodb.connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source=" & sti & ";"
cn.connectionstring = cnstr
cn.open

sql = "insert into logon (User, Dato, Ip) values('" & Session("brugernavn") & "',#" & Session("dato") & "#," & Session("IP") & ")"
cn.execute sql

cn.close
set cn = nothing
Response.Redirect("adminindex.asp")
%>

Hvad har jeg nu gjort galt???