Public Class ClassUser

    Public Shared Sub LogoutUser()
        Try
            Dim SQL

            SQL = $"UPDATE TBDD_USER SET LOGGED_IN = {0}, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('{USER_USERNAME}')"
            ClassDatabase.Execute_non_Query(sql)

            sql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
            ClassDatabase.Execute_non_Query(sql)
        Catch ex As Exception
            ClassLogger.Add("Error while logging out user: " & ex.Message)
        End Try
    End Sub

End Class