'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
Config = LoadConfigMap
pool.Initialize(Config.Get("DriverClass"), Config.Get("JdbcUrl"), Config.Get("User"), _
Config.Get("Password"))
#if DEBUG
DebugQueries = True
#else
DebugQueries = False
#end if
serverPort = Config.Get("ServerPort")
LoadSQLCommands(Config)
Dim jo As JavaObject = pool ' added line
jo.RunMethod("setMaxPoolSize", Array(1)) ' added line
jo.RunMethod("setMinPoolSize", Array(1)) ' added line
End Sub