[VB6] Riempimento ComboBox con dati query troppo lenta

[gaullo]

ciao.
Sto da qualche tempo lavorando con un db mysql.
il database si trova su di un server linux mentre il programma è oviamente vb6
x connettermi al db uso myodbc.
Ho un problema di prestazioni nel caricare i dati di una query dentro una combo.
La query contiene un numero nn esagerato di record, ma su quella routine il programma rimane "fermo" x una 15 d sec (e il processore nn sembra troppo sollecitato)

questo è il codice:

   quer = "select idsede, citt, indirizzo from sede order by citt"
   Set generica = Nothing
   generica.Open quer, conn, adOpenStatic, adLockReadOnly
   Do While Not generica.EOF
      Combo4.AddItem (generica("citt") & " - " & generica("indirizzo"))
      Combo4.ItemData(Combo4.NewIndex) = generica("idsede")
      generica.MoveNext
   Loop
   Set generica = Nothing

non saprei come ottimizzarlo.
qualcuno a qualche idea?
Potrebbe essere un problema di lentezza della lettura dei dati dal server? Qualcuno ha avuto problemi simili usando db mysql connettendosi tramite myodbc?

[Johnny_Depp]

sposto nel subforum

[mgmg]

Prova ad aggiungere prima della open di generica:
generica.CursorLocation = adUseClient

Ciao