Verbesserung der Protokollierung und Konfigurationsbereinigung

Die Änderungen umfassen:

- Anpassung der `App.config`: Entfernen veralteter Einstellungen (`FB_DATABASE`, `FB_USER`, etc.) und Hinzufügen neuer Platzhalter (`Test`).
- Verbesserte Fehlerbehandlung und Protokollierung in `Form1.vb`, `WindowsService.vb` und anderen Klassen.
- Konsistente Verwendung von Symbolen (✔, ⚠) zur Hervorhebung von Erfolgen und Warnungen.
- Aktualisierung der `Settings.settings` und Bereinigung nicht mehr benötigter Konfigurationswerte.
- Downgrade von `Microsoft.Data.SqlClient` von Version 7.0.1 auf 5.2.2.
- Entfernung redundanter Module und Codeabschnitte zur Verbesserung der Wartbarkeit.
- Verbesserte Fehlerbehandlung beim Starten und Stoppen des ServiceHosts.
- Optimierung der Protokollmeldungen für Debugging und Performance-Analysen.

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -1,4 +1,5 @@
-Imports System.Data
+Imports System.Configuration
+Imports System.Data
 Imports System.IO
 Imports System.Reflection
 Imports System.Security.Cryptography
@@ -9,11 +10,11 @@ Imports DigitalData.Modules.Interfaces
 Imports DigitalData.Modules.Interfaces.ZUGFeRDInterface
 Imports DigitalData.Modules.Jobs
 Imports DigitalData.Modules.Logging
+Imports Microsoft.Data
 
 Public Class Form1
     Private _logConfig As LogConfig
     Private _logger As Logger
-    Private _firebird As Firebird
     Private _mssql As MSSQLServer
     Private _zugferd As ZUGFeRDInterface
     Private _GDPictureVersion As String
@@ -28,12 +29,24 @@ Public Class Form1
             .Debug = True
         }
         _logger = _logConfig.GetLogger()
+        My.Settings.Save()
         Dim oCS = My.Settings.MSSQL_CONNECTIONSTRING
-        If Not oCS.Contains("TrustServerCertificate") Then
-            oCS += ";TrustServerCertificate=true"
+        My.Settings.MSSQL_CONNECTIONSTRING = "Server = SDD-VHP04-SQL19\DD_TESTING01;Database=DD_ECM;User Id=sa;Password=123456789dD!;"
+        My.Settings.Save()  ' Jetzt wird wirklich gespeichert
+        oCS = My.Settings.MSSQL_CONNECTIONSTRING
+
+        '
+        If Not oCS.EndsWith("TrustServerCertificate") Then
+            oCS += "TrustServerCertificate=true"
         End If
         _mssql = New MSSQLServer(_logConfig, oCS)
-
+        If _mssql Is Nothing Then
+            MsgBox("Could not connect to MSSQL Server. Please check the connection string in the application settings.", MsgBoxStyle.Critical, "Database Connection Error")
+        Else
+            If Not _mssql.DBInitialized Then
+                MsgBox("Could not connect to MSSQL Server. Please check the connection string in the application settings.", MsgBoxStyle.Critical, "Database Connection Error")
+            End If
+        End If
         _GDPictureVersion = "11.2024"
         _GDPictureLizenz = ConfigDbFunct.GetProductLicense("GDPICTURE", _GDPictureVersion, _logConfig, My.Settings.MSSQL_CONNECTIONSTRING)