SupportLink Anpassung aus Master übernommen

app/TaskFlow/frmKonfig.vb

@@ -170,8 +170,25 @@ Public Class frmKonfig
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
         ' Specify that the link was visited.
         Me.LinkLabel1.LinkVisited = True
-        ' Navigate to a URL.
-        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
+        Try
+            Using connection As New SqlClient.SqlConnection(CONNECTION_STRING_ECM)
+                connection.Open()
+
+                Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
+                Dim oCmd As New SqlClient.SqlCommand(oSql, connection)
+                Dim oSupportLinkObj As Object = oCmd.ExecuteScalar
+                Dim oSupportLink As String = If(oSupportLinkObj IsNot Nothing, oSupportLinkObj.ToString, "")
+
+                If Not String.IsNullOrEmpty(oSupportLink) Then
+                    Process.Start(oSupportLink)
+                Else
+                    MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
+                End If
+
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnOpenAppDataFolder.Click