diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb
index ed84b8d..aa7bf06 100644
--- a/app/DD_PM_WINDREAM/frmAdministration.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.vb
@@ -13,7 +13,9 @@ Public Class frmAdministration
     Private email As New ClassEmail
     Public profile_guid As Integer = 0
     Dim formloaded As Boolean
-    Dim change_BindingSource As Boolean = False
+
+    Private Property change_BindingSource As Boolean = False
+
     Dim FinalIndexChanging As Boolean = False
     Private INSERT_ACTIVE As Boolean = False
     Dim DT_CHART_CONFIG As DataTable
@@ -195,8 +197,9 @@ Public Class frmAdministration
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+        Finally
+            change_BindingSource = False
         End Try
-        change_BindingSource = False
     End Sub
     Private Sub ObjekttypenEintragen()
         Me.cmbObjekttypen.Items.Clear()
@@ -1479,7 +1482,7 @@ Public Class frmAdministration
                 MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical)
             End Try
         End If
-        '
+        change_BindingSource = False
     End Sub
     'Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged
     '    If formloaded = False Then