Database/Firebird: Increase poolsize to 1000

Modules.Database/Adapters/Firebird.vb

@@ -56,6 +56,8 @@ Public Class Firebird
     Private _connectionString As String
     Public _DBInitialized As Boolean = False
 
+    Public Const MAX_POOL_SIZE = 1000
+
     Public Enum TransactionMode
         <Description("Use no transaction, neither internal nor external")>
         NoTransaction
@@ -147,7 +149,8 @@ Public Class Firebird
             .Database = Database,
             .UserID = User,
             .Password = Password,
-            .Charset = "UTF8"
+            .Charset = "UTF8",
+            .MaxPoolSize = MAX_POOL_SIZE
         }.ToString()
     End Function