Set Logintid til db

Jeg kan ikke updaterer login til til min db, er der nogle der kan se fejlen?

<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim rsLoginTid
Dim strAccessDB
Dim strSQL
Dim strUserName
Dim strStartTid

strUserName = Request.Form("txtUserName")
strStartTid = Now

strAccessDB = "brugere.mdb"

Set adoCon = Server.CreateObject("ADODB.Connection")

strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)

adoCon.Open strCon

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

strSQL = "SELECT tblUsers.Password, tblUsers.Logintid, tblUsers.Navn FROM tblUsers  WHERE tblUsers.UserID ='" & replace(strUserName, "'", "''") & "'"
rsCheckUser.Open strSQL, strCon

strSQL = "UPDATE tblUser SET Logintid = "'" & Now()"'" & "
Set rs = Conn.Execute(strSQL)

If NOT rsCheckUser.EOF Then

If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
  Session("Starttidspunkt") = Now   
  Session("blnIsUserGood") = True
  Session("Navn") = strUserName
  Response.Cookies("username") = strUserName
  Response.Cookies("StartTid") = strStartTid
 
  Set adoCon = Nothing
  Set strCon = Nothing
  Set rsCheckUser = Nothing
 
  Response.Redirect"index.asp?name=" & strUserName
End If
End If

Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
%>

<%
Session("blnIsUserGood") = False

Response.Redirect"fejl.asp"
%>