classDataASorDB

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -7,6 +7,7 @@ Public Class frmAdministration
 
     Private Const MAX_DATA_SEARCHES = 5
     Private Const MAX_DOC_SEARCHES = 5
+    Private _DataASorDB As ClassDataASorDB
 
     Class ProfileType
         Public Name As String
@@ -53,6 +54,7 @@ Public Class frmAdministration
     End Function
 
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
         ' Select first tab to prevent profile textbox from being empty
         XtraTabControl3.SelectedTabPageIndex = 0
 
@@ -637,7 +639,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        ClassInit.Refresh_Connections()
+        _DataASorDB.Refresh_Connections()
         ClassInit.Refresh_Profile_Links()
     End Sub