diff --git a/app/DD_PM_WINDREAM/ClassSQLEditor.vb b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
index fff9ccb..81722a8 100644
--- a/app/DD_PM_WINDREAM/ClassSQLEditor.vb
+++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb
@@ -22,7 +22,7 @@ Public Class ClassSQLEditor
 
                 oForm.PlaceholdersManualPrefix = "CTRL"
                 oForm.PlaceholdersManualTitle = "Controls"
-                oForm.PlaceholdersManual = CURRENT_CONTROL_LIST.ToDictionary(Function(control) control.Name, Function(control) control.Name)
+                oForm.PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
 
                 If svc.ShowDialog(oForm) = DialogResult.OK Then
                     Dim sql As New SQLValue(oForm.SQLCommand)
diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
index c674b1a..67aa0d2 100644
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
@@ -131,6 +131,7 @@ Module ModuleRuntimeVariables
     Public Property CURRENT_DT_PROFILE As DataTable
 
     Public Property CURRENT_CONTROL_LIST As New List(Of Control)
+    Public Property CURRENT_CONTROL_NAME_LIST As New List(Of String)
 
     Public CURRENT_INDEX_ARRAY(100, 250) As String
 
diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
index 7c5b106..a575637 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.10")>
+<Assembly: AssemblyTrademark("2.3.7.11")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.8.0")>
+<Assembly: AssemblyVersion("2.3.7.11")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb
index 49d647d..6fe4bc6 100644
--- a/app/DD_PM_WINDREAM/frmAdministration.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.vb
@@ -290,9 +290,11 @@ Public Class frmAdministration
                 TabControl1.SelectedIndex = 0
                 Exit Sub
             End If
+
+
             TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
             TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
-            Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
+            FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
             TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
 
         Catch ex As Exception
@@ -1707,12 +1709,16 @@ Public Class frmAdministration
     End Sub
 
     Private Sub PROFILGUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILGUIDTextBox.TextChanged
-
         If IsNumeric(PROFILGUIDTextBox.Text) Then
             CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
             'UNSAVED_CHANGES_PROFILE = False
             PROFILEBS_POS = TBPM_PROFILEBindingSource.Position
-            '   change_BindingSource = False
+            'change_BindingSource = False
+
+            TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, USER_LANGUAGE, CURRENT_ProfilGUID)
+            CURRENT_CONTROL_NAME_LIST = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS.AsEnumerable().
+                Select(Function(row) row.NAME).
+                ToList()
         End If
     End Sub