Como controlar Usuarios registrados activos

Buenas.

Estoy intentando controlar los usuarios registrados en una web que se
encuentran actualmente activos, así como las sesiones que tiene abioertas
cada uno.

Cuando el usuario introduce su código y pasword guardo los datos en un tabla
acces, añadiendo uno al campo contador de ese usuario, solo hay un registro
por usuario.

El problema lo tengo para restar datos al campo contador.

Puse el siguiente código en el global.asa:
Sub Application_OnStart
Application("UserAct")=0
End Sub

Sub Session_OnStart
session.timeout0
application.lock
Application("UserAct")= Application("UserAct")+1
application.unlock
End Sub

Sub Session_OnEnd
application.lock
Application("UserAct")= Application("UserAct") - 1
application.unlock
dim Cn
dim sqltxt
set Cn=Server.CreateObject("ADODB.Connection")
Cn.Provider="Microsoft.Jet.OLEDB.4.0"
Cn.Open Server.MapPath("/datos.mdb")
sqltxt = "UPDATE SociosCon SET conexion = conexion - 1 WHERE Usuario = '"
& Session("usuario") & "'"
Cn.Execute sqltxt
Cn.close
set Cn = nothing
End Sub
el control de los usuarios activos Application("UserAct") funciona
perfectamente, pero el acceso a la base de datos no funciona y no acabo de
ver la razon.
El código para restar en la base de datos lo probe en un archivo asp y
funciona, pero no lo hace al terminar la sesión ni por tiempo ni con
session.abandom, podría alguien indicarme cual es el problema, o si lo tiene
solucionado de alguna manera indicarmela.
Muchisimas gracias