Lentidao ao fazer Open

Em VB 6 uso este codigo:

'************************************************
strConnect = "driver={MySQL ODBC 3.51 Driver};server=" & mySqlIP & ";uid=" & usr_id & ";pwd=" & pass & ";database=clientes;option=" & 1 + 2 + 8 + 32 + 2048 + 16384

Set adoDataConn = New ADODB.Connection

adoDataConn.CursorLocation = adUseClient

adoDataConn.Open strConnect
'************************************************

Sempre funcionou bem

Hoje a ultima instrução (Open) demora imenso tempo a ser executada.

Alguém sabe porquê?

Obrigado