EDMI: Load Object Store Paths

Service.EDMIService/AppConfig.vb

@@ -1,16 +1,16 @@
 Imports System.Configuration
 
 Public Class AppConfig
-    Public Shared FirebirdDataSource As String
-    Public Shared FirebirdDatabase As String
-    Public Shared FirebirdUser As String
-    Public Shared FirebirdPassword As String
-    Public Shared ContainerPath As String
-    Public Shared ContainerPassword As String
-    Public Shared DatastorePath As String
-    Public Shared MSSQLConnectionString As String
+    Public FirebirdDataSource As String
+    Public FirebirdDatabase As String
+    Public FirebirdUser As String
+    Public FirebirdPassword As String
+    Public ContainerPath As String
+    Public ContainerPassword As String
+    Public DatastorePath As String
+    Public MSSQLConnectionString As String
 
-    Public Shared Sub Load()
+    Public Sub New()
         With ConfigurationManager.AppSettings
             FirebirdDataSource = .Item("FIREBIRD_DATASOURCE")
             FirebirdDatabase = .Item("FIREBIRD_DATABASE_NAME")
@@ -26,12 +26,12 @@ Public Class AppConfig
         End With
     End Sub
 
-    Public Shared Function IsFirebirdConfigured() As Boolean
+    Public Function IsFirebirdConfigured() As Boolean
         Dim oProps As New List(Of String) From {FirebirdDataSource, FirebirdDatabase, FirebirdUser, FirebirdPassword}
         Return Not oProps.Any(Function(Prop) String.IsNullOrWhiteSpace(Prop))
     End Function
 
-    Public Shared Function IsMSSQLConfigured() As Boolean
+    Public Function IsMSSQLConfigured() As Boolean
         Return Not String.IsNullOrWhiteSpace(MSSQLConnectionString)
     End Function
 End Class