scusate il codice era sbagliato

il codice è questo

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


ma quando vado a controllare il contenuto ad esempio di rotation(1).text mi dice che l'elemento 1 della matrice di controllo non esiste ....