diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb index 84c41409..a78168f7 100644 --- a/GUIs.ZooFlow/ClassInit.vb +++ b/GUIs.ZooFlow/ClassInit.vb @@ -167,7 +167,13 @@ Public Class ClassInit Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!") End If - Dim oConString = My.Database.GetConnectionString(oDatatable.Rows(0).Item("SERVER"), oDatatable.Rows(0).Item("DATENBANK"), oDatatable.Rows(0).Item("USERNAME"), oDatatable.Rows(0).Item("PASSWORD")) + Dim oDataRow As DataRow = oDatatable.Rows.Item(0) + Dim oConString = My.Database.GetConnectionString( + oDataRow.Item("SERVER").ToString, + oDataRow.Item("DATENBANK").ToString, + oDataRow.Item("USERNAME").ToString, + oDataRow.Item("PASSWORD").ToString) + My.DatabaseIDB = New MSSQLServer(My.LogConfig, oConString) If My.DatabaseIDB.DBInitialized = False Then _Logger.Warn("Could not initialize IDB-Database!") @@ -176,7 +182,7 @@ Public Class ClassInit End If Else _Logger.Warn("ZooFlow missing from Active Modules!") - Throw New InitException("ZooFlow Modult ist nicht aktiv oder nicht lizensiert!") + Throw New InitException("ZooFlow Modul ist nicht aktiv oder nicht lizensiert!") End If End Sub