Åbne database til skrivning og låse så andre ikke skriver imens

Jeg benytter nedenstående funktion til at opdatere databasen med noget statistik optælling:

function simpleStats(siteID)
    strSQL = "SELECT * FROM sites WHERE sites_id = " & siteID
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open strSQL, dsn_procms, 1, 3

    if rs("sites_counter_sessions") = "" or rs("sites_counter_sessions") = null then
        rs("sites_counter_sessions") = 0
    end if

    if rs("sites_counter_hits") = "" or rs("sites_counter_hits") = null then
        rs("sites_counter_hits") = 0
    end if

    if not session("counted") then
        rs("sites_counter_sessions") = rs("sites_counter_sessions") + 1
        session("counted") = true
    end if

    rs("sites_counter_hits") = rs("sites_counter_hits") + 1

    rs.Update
    rs.Close
    set rs = Nothing
end function


Men når der er mange brugere på mit site, får jeg nedenstående fejl:


Microsoft JET Database Engine error '80040e21'

The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time.

/includes/asp/functions.asp, line 101


Linie 101 er denne:

rs.Update


Hvordan åbner jeg databasen på en måde, at andre brugere må stå i "kø" for at kommme til at kunne skrive til den, så jeg ikke får ovenstående fejl med flere brugere der forsøger at ændre samme data på samme tid ?