Deleting a WMFile resulted in WMError...io Delete error due to handling on file

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -175,14 +175,13 @@ Public Class frmAdministration
     Sub Refresh_Profildaten()
         Try
             change_BindingSource = True
+            CHANGES_FORM_DESIGN = True
+            UNSAVED_CHANGES_PROFILE = False
+            CURR_TEXT_CONTROL_CONTENT = String.Empty
             TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE)
             TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE)
             TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
 
-            'Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
-
-            'TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, PROFILGUIDTextBox.Text)
-
             If tabctrl_Profilkonfig.SelectedIndex = 1 Then
                 CURRENT_OBJECTTYPE = cmbObjekttypen.Text
                 If TabControl2.SelectedIndex = 1 Then
@@ -1120,11 +1119,10 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox.Text = USER_USERNAME
                 Me.TBPM_PROFILEBindingSource.EndEdit()
                 Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE)
+                Refresh_Profildaten()
+                Dim pos As Integer = TBPM_PROFILEBindingSource.Find("GUID", CURRENT_ProfilGUID)
+                TBPM_PROFILEBindingSource.Position = pos
                 tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
-                CHANGES_FORM_DESIGN = True
-                UNSAVED_CHANGES_PROFILE = False
-                CURR_TEXT_CONTROL_CONTENT = String.Empty
-                DD_DMSLiteDataSet.AcceptChanges()
             Else
                 tsbStaticInfo.Caption = ""
             End If