Public Function updateLog(person As String) As Long
    
    Dim akca_conndriver, akca_conndatabasepathnw, akca_conndatabasefile, akca_conndatabaseend As String
    Dim str As String
    Dim strSQL As String
    
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    akca_conndriver = "Driver=SQLite3 ODBC Driver;"
    akca_conndatabasepathnw = "Database=\\PC\Local$\akca\data\"
    akca_conndatabasefile = "mdrs.db"
    akca_conndatabaseend = ";"
    
    Set conn = Nothing
    str = akca_conndriver & akca_conndatabasepathnw & akca_conndatabasefile & akca_conndatabaseend
    Set conn = get_akca_dbconn(str)
    
    strSQL = "SELECT * FROM itLogUpdate;"
    rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
    
    rs.AddNew
    rs!username = usernameD
    rs!perId = person
    rs!pcname = ComputerName()
    rs!updatetime = Now()
    rs.update
        
    updateLog = rs!logID
    
    rs.Close
    
    Set conn = Nothing
    Set rs = Nothing
    

End Function