Add config items, clear documents and controls when no record id is available

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -10,7 +10,6 @@ Module ModuleMySettings
     Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig2.xml")
 
     Public MyConnectionString As String = ""
-    Public MyFormsDesign As String = ""
 
     Public DEBUG As Boolean = False
     Public Sett_TaskOverviewKeepInFront As Boolean = True
@@ -221,10 +220,6 @@ Module ModuleMySettings
                         Else
                             MY_ADDON_PATH = Row.Item("Value")
                         End If
-                    Case "MyFormsDesign"
-                        If Row.Item("Value") <> String.Empty Then
-                            MyFormsDesign = Row.Item("Value")
-                        End If
                     Case "GridDocResult_BestFitColumns"
                         GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
 
@@ -280,13 +275,6 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
-            If rowresult.Contains("MyFormsDesign") = False Then
-                Dim newRow As DataRow = DT.NewRow()
-                newRow("ConfigName") = "MyFormsDesign"
-                newRow("Value") = ""
-                DT.Rows.Add(newRow)
-                DT.WriteXml(ConfigPath)
-            End If
             If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
                 Dim newRow As DataRow = DT.NewRow()
                 newRow("ConfigName") = "GridDocResult_BestFitColumns"