diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb
index e53b10c..f3446f4 100644
--- a/app/DD_Clipboard_Searcher/frmAdministration.vb
+++ b/app/DD_Clipboard_Searcher/frmAdministration.vb
@@ -448,8 +448,6 @@ Public Class frmAdministration
         Try
             Select Case oTabName
                 Case TabPageProcessAssignment.Name
-                    CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
-
                     RibbonGroup_Profile.Enabled = False
 
                     RibbonGroup_Process.Enabled = True
@@ -843,4 +841,10 @@ Public Class frmAdministration
             MemoEdit4.Text &= oItem.Value
         End If
     End Sub
+
+    Private Sub TBCW_PROFILESBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingSource.CurrentChanged
+        If PROFILE_IDTextBox.Text <> String.Empty Then
+            CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
+        End If
+    End Sub
 End Class
\ No newline at end of file