Dim ConexionMySQL As JdbcSQL
ConectaMySQL(ConexionMySQL)
Sub ConectaMySQL(MySQLDB As JdbcSQL)
Dim driver As String = "com.mysql.cj.jdbc.Driver"
Dim odboURL As String = "jdbc:mysql://REMOTEIP:3306/DDBBNAME?useUnicode=true&characterEncoding=UTF-8"
MySQLDB.Initialize2(driver,odboURL,myuser,mypass)