indtast data i database når session end

nu er jeg rimelig ny i det her.
men kan nogle fortælle mig hvorfor dette ikke virker

Sub Session_OnEnd
 
    Dim Conn
 
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("amstaff.mdb")
    Conn.Open DSN
    Insert into bruger where brugernavn = '" & Session("brugernavn") & "' (brugeronline) values(offline)
    Conn.Close
    Set Conn = Nothing

End Sub