From aec9f58c84756282b3b8d1782f873069e77d84cb Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 12 Jul 2021 11:32:38 +0200
Subject: [PATCH] Database/Firebird: Increase poolsize to 1000

---
 Modules.Database/Adapters/Firebird.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Modules.Database/Adapters/Firebird.vb b/Modules.Database/Adapters/Firebird.vb
index df64e43d..a3b24da3 100644
--- a/Modules.Database/Adapters/Firebird.vb
+++ b/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