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