EDMI: Work on ClassDataASorDB

GUIs.ZooFlow/ClassEnvironment.vb

@@ -4,7 +4,7 @@ Public Class ClassEnvironment
     Public Shared Function GetEnvironment() As Environment
         Dim oEnvironment As New Environment() With {
             .DatabaseIDB = My.DatabaseIDB,
-            .Database = My.Database,
+            .Database = My.DatabaseECM,
             .Modules = My.Application.Modules,
             .Service = My.Application.Service,
             .Settings = My.Application.Settings,