MS Anpassungen Views und Spalten

app/DD_Clipboard_Searcher/frmLicense.vb

@@ -57,9 +57,9 @@ Public Class frmLicense
                 Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
 
                 Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
-                If Database.ExecuteNonQuery(sql) = False Then
+                If MyDB_DDECM.ExecuteNonQuery(sql) = False Then
                     sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
-                    Database.ExecuteNonQuery(sql)
+                    MyDB_DDECM.ExecuteNonQuery(sql)
                     Refresh_Licence(True)
                 Else
                     MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)