Module Help

[CCheatham]

I want to take this module and edit it so the info is added to a table
when a user opens the database, and removes the user from the table
when they close the database. Any suggestions? I have a public
database that I have to maintain that it's used 24 hours a day, and
need to be able to find the users who are using it. The ldb file only
gives me their workstation IDs, not their user IDs. Thanks.

---------------------------------------------------
Function fGetUserName() As String
' Returns the network login name
Dim lngLen As Long, lngRet As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngRet = apiGetUserName(strUserName, lngLen)
If lngRet Then
fGetUserName = Left$(strUserName, lngLen - 1)
End If
End Function