la formattazione del forum mi ha mangiato l'evidenziazione in rosso, l'errore e' qui

If Not connessioneDB Is Nothing Then

o se tolgo l'if qui

connessioneDB.close

per creare la connessione faccio conn = CreaConnDB(drvDBMysql, "log" ,3306,"localhost","root","","", dbCharsetUtf8)

per chiuderla call ChiudiConnDB(conn)

grazie