MS Icons

Global_Indexer/frmConfig_Basic.vb

@@ -1,6 +1,7 @@
 Imports System.IO
 Imports System.Threading
 Imports System.Globalization
+Imports DigitalData.Modules.Database
 
 Public Class frmConfig_Basic
     Dim formloaded = False
@@ -64,6 +65,10 @@ Public Class frmConfig_Basic
 
                 Me.txtActualConnection.Text = constring
 
+                If DATABASE_ECM Is Nothing Then
+                    DATABASE_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
+                End If
+
                 Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
                 sql = sql.Replace("@user", Environment.UserName)
                 LOGGER.Info(">> Username: " & Environment.UserName)