Version 1.2.7.1

MultiTool.Form/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("WebService Multitool")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("1.2.7.0")>
+<Assembly: AssemblyTrademark("1.2.7.1")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.2.7.0")>
+<Assembly: AssemblyVersion("1.2.7.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

MultiTool.Form/frmConfig.vb

@@ -32,7 +32,7 @@ Public Class frmConfig
     End Sub
 
     Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        Try
             Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
             Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With {
                 .InitialCatalog = "DD_ECM"
@@ -52,6 +52,11 @@ Public Class frmConfig
             TBMT_CONFIGTableAdapter.FillGeneral(TBMT_CONFIG_GENERAL)
 
             LoadGeneralConfig(TBMT_CONFIG_GENERAL)
+
+            BindingSource = TBEDIXMLITEMSBindingSource
+        Catch ex As Exception
+            FormHelper.ShowError(ex, "Laden des Formulars")
+        End Try
     End Sub
 
     Private Sub LoadGeneralConfig(TBMT_CONFIG_GENERAL As DS_DD_ECM.TBMT_CONFIGDataTable)
@@ -133,7 +138,7 @@ Public Class frmConfig
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
-        BindingSource.AddNew()
+        BindingSource?.AddNew()
     End Sub
 
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged