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