Remove ClassDatabase, Replace with Database.MSSQL Module

Global_Indexer/ClassLicence.vb

@@ -8,7 +8,7 @@ Public Class ClassLicence
             _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
             Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
 
-            Dim licEncoded As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
+            Dim licEncoded As String = DATABASE_ECM.GetScalarValue(sql)
             Dim licString As String = _lizenzManager.DecodeLicenseKey(licEncoded)
             Dim licArray() As String = licString.ToString.Split("#")