diff --git a/app/DD_PM_WINDREAM/ClassSQLEditor.vb b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
index 0f269c2..88c08d6 100644
--- a/app/DD_PM_WINDREAM/ClassSQLEditor.vb
+++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
@@ -19,9 +19,11 @@ Public Class ClassSQLEditor
             'CURRENT_DESIGN_TYPE = "INPUT_INDEX"
             Using oForm As New frmSQLEditor(LOGCONFIG, DatabaseECM)
                 oForm.SQLCommand = SQLSTring
+
                 If svc.ShowDialog(oForm) = DialogResult.OK Then
                     Dim sql As New SQLValue(oForm.SQLCommand)
                     CURRENT_SQL_CON = oForm.SQLConnection
+                    CURRENT_CONN_ID = oForm.SQLConnection
                     value = sql
                 End If
             End Using
diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
index 7efb1b5..b8c2fe1 100644
--- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb	
+++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb	
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
-<Assembly: AssemblyTrademark("2.3.7.5")>
+<Assembly: AssemblyTrademark("2.3.7.9")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.7.6")>
+<Assembly: AssemblyVersion("2.3.7.9")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 33936d1..488eea3 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -3978,12 +3978,7 @@ Public Class frmValidator
                                         ItemWorked = False
                                     End If
                                     If Not IsNothing(oSQLCommand) Then
-                                        Dim oDBResult = DatabaseFallback.GetScalarValueWithConnection(oSQLCommand, oConnectionID)
-                                        Dim oResultfromSQL As Object = ""
-                                        If oDBResult.OK Then
-                                            oResultfromSQL = oDBResult.Scalar
-                                        End If
-
+                                        Dim oResultfromSQL As Object = DatabaseFallback.GetScalarValueWithConnection(oSQLCommand, oConnectionID)
                                         If Not IsNothing(oResultfromSQL) Then
                                             LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]")
                                             If IsDBNull(oResultfromSQL) Then
@@ -4415,10 +4410,11 @@ Public Class frmValidator
                     Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
                     Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
 
-                    If oIsReadOnly = True Then
+                    ' WARUM HABEN SIE GEMACHT????!!!!!!einself11
+                    'If oIsReadOnly = True Then
+                    '    Continue For
+                    'End If
 
-                        Continue For
-                    End If
                     Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
                     Dim oIDBTyp As Integer
                     If IDB_ACTIVE Then