WIP: first pass of depending controls

Global_Indexer/frmAdministration.vb

@@ -551,10 +551,15 @@ Public Class frmAdministration
             Dim oSQL = $"SELECT SQL_RESULT, CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = {oIndexGuid}"
             Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
             Dim oRow = oDatatable.Rows.Item(0)
+            Dim oConnection As Integer = 1
+
+            If Not IsDBNull(oRow.Item("CONNECTION_ID")) Then
+                oConnection = oRow.Item("CONNECTION_ID")
+            End If
 
             Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
                 .SQLCommand = oRow.Item("SQL_RESULT"),
-                .ConnectionID = oRow.Item("CONNECTION_ID")
+                .ConnectionID = oConnection
             }
 
             If oForm.ShowDialog() = DialogResult.OK Then