ZooFLow: Use SQLConfig form

GUIs.ZooFlow/ClassInit.vb

@@ -4,6 +4,7 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Controls.SQLConfig
 Imports DigitalData.GUIs.ZooFlow.ClassInitLoader
 Imports DigitalData.GUIs.ZooFlow.ClassConstants
 Imports System.Threading
@@ -71,9 +72,17 @@ Public Class ClassInit
 
     Private Function SetupDatabase() As Boolean
         If My.SystemConfig.ConnectionString = String.Empty Then
-            Dim oResult = frmConfigDatabase.ShowDialog()
+            Dim oConnectionString = My.SystemConfig.ConnectionString
 
-            If oResult = DialogResult.Cancel Then
+            Dim ofrmSQLConfig As New frmSQLConfig(My.LogConfig) With {.ConnectionString = oConnectionString}
+
+            Dim oResult = ofrmSQLConfig.ShowDialog()
+
+            If oResult = DialogResult.OK Then
+                My.SystemConfig.ConnectionString = ofrmSQLConfig.ConnectionString
+
+                Return True
+            Else
                 MsgBox("Es wurde keine Datenbank hinterlegt. Die Anwendung wird beendet.")
                 Return False
             End If