MS Service ZuGferd und Begin GUI

Modules.Database/Firebird.vb

@@ -53,6 +53,7 @@ Public Class Firebird
     Private _connectionUsername As String
     Private _connectionPassword As String
     Private _connectionString As String
+    Public _DBInitialized As Boolean = False
 
     Public Enum TransactionMode
         NoTransaction
@@ -104,6 +105,8 @@ Public Class Firebird
 
         If oConnection Is Nothing Then
             Throw New Exceptions.DatabaseException()
+        Else
+            _DBInitialized = True
         End If
 
         _logger.Debug("Connection sucessfully established!")