nrooms = Labelguestroomsnum.Caption
Load rotation(nrooms)
For a = 1 To UBound(nrooms)
rotation(a).Caption = SQLRead("SELECT rotation FROM guestrooms WHERE id='a'")
Next a


Cosa c'è di errato?????
mi da errore nella linea

For a = 1 To UBound(nrooms)


e mi dice Tipo non corrispondente ...


Che devo fare?????