ms

app/DD-Record-Organiser/frmMain.vb

@@ -13,7 +13,7 @@ Public Class frmMain
 
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
-            Dim sql = sql_User_Login
+            Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
             sql = sql.Replace("@LogInOut", 0)
             sql = sql.Replace("@ANGEMELDETWO", "''")
             sql = sql.Replace("@user", Environment.UserName)