B4J Question [SOLVED] Hikari usage with MySQL: Connection Leaks / Connection not available

Sub OpenMySQL(serverIP As String,  serverPort As String, serverDB As String, login As String, password As String) As Boolean
    'Log("init mysql")
    UsePool = True
    If IsOpen Then
        SQLite = pool.GetConnection
        Return True
    End If
    Try
        Dim jdbcUrl As String = $"jdbc:mysql://${serverIP}:${serverPort}/${serverDB}?characterEncoding=utf8&zeroDateTimeBehavior=convertToNull&allowLoadLocalInfile=True"$
        pool.Initialize("com.mysql.cj.jdbc.Driver", jdbcUrl, login, password)
        Dim jocp As JavaObject = pool
        jocp.RunMethod("setMaximumPoolSize", Array(PoolSize))
        jocp.RunMethod("addDataSourceProperty", Array("cachePrepStmts", True))
        jocp.RunMethod("addDataSourceProperty", Array("prepStmtCacheSize", 250))
        jocp.RunMethod("addDataSourceProperty", Array("prepStmtCacheSqlLimit", 2048))
        jocp.RunMethod("addDataSourceProperty", Array("useServerPrepStmts", True))
        jocp.RunMethod("addDataSourceProperty", Array("useLocalSessionState", True))
        jocp.RunMethod("addDataSourceProperty", Array("useLocalTransactionState", True))
        jocp.RunMethod("addDataSourceProperty", Array("rewriteBatchedStatements", True))
        jocp.RunMethod("addDataSourceProperty", Array("cacheResultSetMetadata", True))
        jocp.RunMethod("addDataSourceProperty", Array("cacheServerConfiguration", True))
        jocp.RunMethod("addDataSourceProperty", Array("elideSetAutoCommits", True))
        jocp.RunMethod("addDataSourceProperty", Array("maintainTimeStats", True))
        Dim thres As Long = 60000
        jocp.RunMethod("setLeakDetectionThreshold", Array(thres))
        SQLite = pool.GetConnection
        IsOpen = True
        Return True
    Catch
        IsOpen = False
        Log("OpenMySQL: " & LastException.Message)
        Return False
    End Try
End Sub

Sub SQLRunQuery(qry As String, args As List) As ResumableSub
    SQLGet
    SQLite.BeginTransaction
    Try
        If args <> Null Then
            SQLite.ExecNonQuery2(qry, args)
        Else   
            SQLite.ExecNonQuery(qry)
        End If
        SQLite.TransactionSuccessful
        OK = True
        Error = ""
    Catch
        SQLite.rollback
        OK = False
        Error = LastException.Message
        Log($"SQLRunQuery: ${Error}"$)
    End Try
    SQLClose
    Return True
End Sub

Sub SQLExecuteMaps(Query As String, args As List) As ResumableSub
    SQLGet
    'Log("SQLExecuteMaps: " & Query)
    Dim l As List
    l.Initialize
    SQLite.BeginTransaction
    Try
        Dim cur As ResultSet
        If args <> Null Then
            cur = SQLite.ExecQuery2(Query, args)
        Else
            cur = SQLite.ExecQuery(Query)
        End If
        Do While cur.NextRow
            Dim res As Map
            res.Initialize
            For i = 0 To cur.ColumnCount - 1
                res.Put(cur.GetColumnName(i).ToLowerCase, cur.GetString2(i))
            Next
            l.Add(res)
        Loop
        SQLite.TransactionSuccessful
        cur.Close
        OK = True
        Error = ""
    Catch
        SQLite.Rollback
        OK = False
        Error = LastException.message
        Log($"SQLExecuteMaps: ${Error}"$)
    End Try
    SQLClose
    Return l
End Sub

Sub SQLGet()
    If UsePool Then
        SQLite = pool.GetConnection
    End If
End Sub

'Close the database connection
Sub SQLClose
    If UsePool Then
        SQLite.Close
    End If
End Sub

Sub SQLRunQuery(qry As String, args As List) As ResumableSub
    Dim SQLite As SQL = pool.GetConnection
    Try
        SQLite.AddNonQueryToBatch(qry, args)
        Dim SenderFilter As Object = SQLite.ExecNonQueryBatch("SQL")
        Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
        OK = True
        Error = ""
    Catch
        OK = False
        Error = LastException.Message
        Log($"SQLRunQuery: ${Error}"$)
    End Try
    SQLite.Close
    Return True
End Sub

'Execute a query and return a list of Mapped records
Sub SQLExecuteMaps(Query As String, args As List) As ResumableSub
    Dim SQLite As SQL = pool.GetConnection
    'Log("SQLExecuteMaps: " & Query)
    Dim l As List
    l.Initialize
    'SQLite.BeginTransaction
    Try
        Dim SenderFilter As Object = SQLite.ExecQueryAsync("SQL", Query, args)
        Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, cur As ResultSet)
        If Success Then
            Do While cur.NextRow
                Dim res As Map
                res.Initialize
                For i = 0 To cur.ColumnCount - 1
                    res.Put(cur.GetColumnName(i).ToLowerCase, cur.GetString2(i))
                Next
                l.Add(res)
            Loop
        End If   
        'SQLite.TransactionSuccessful
        cur.Close
        OK = True
        Error = ""
    Catch
        'SQLite.Rollback
        OK = False
        Error = LastException.message
        Log($"SQLExecuteMaps: ${Error}"$)
    End Try
    SQLite.Close
    Return l
End Sub