Scusate per il titolo poco chiaro.

In una mia applicazione, mi collego a 6 database mysql utilizzando questa riga di connessione

codice:
    Set conn1 = CreateObject("ADODB.Connection")
    mysql_host = ""
    mysql_userid = ""
    mysql_password = ""
    mysql_database = ""
    mysql_port = ""
    connect_string = "Provider=MySqlProv;Data Source=" & Chr(34) & "server=" & mysql_host & ";DB=" & mysql_database & ";User=" & mysql_userid & ";Password=" & mysql_password & ";Option=131088; Stmt=;Port=" & mysql_port & "" & Chr(34)
    conn1.Provider = "MySqlProv"
    conn1.ConnectionString = connect_string
    conn1.CommandTimeout = 1
    conn1.ConnectionTimeout = 1
    conn1.CursorLocation = adUseServer

Il programma funziona bene, ma:

se tutti i db sono UP, non c'è nessun tempo di attesa, se per caso 1 o più database non sono raggiungibili per i più svariati motivi, l'attesa diventa lunghissima.

Praticamente VB6 si "blocca" e resta in attesa di un timeout che può variare a seconda di dove eseguo la mia applicazione (tra 10 e 40 secondi per ogni database non attivo).

Capite che quando ci sono 2 o più database offline, l'attesa diventa snervante.

Come posso ovviare a questa situazione?
La voce connectiontimeout = 1, messa a 1, 100 o 1000 non mi fa cambiare nulla.


Ciao!