Errore di estrazione e valori non validi.

[SuperMariano81]

Buongiorno a tutti
ho un piccolo problema, estraggo da un DB dei dati e li inserisco in un vettore con 23 indici, se però la query mi estrae meno record la procedura si blocca.
Se la query mi da un risultato inferiore ai 23 record che effettivamente mi servono per i restati dovrei dargli dei valori per me non validi,(numero negativo) per indicare la mancanza stessa del dato (li inserisco successivamente in un grafico JS e non posso mettere del testo)
I vettori li inizializzo così:

A_misure = array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
A_giorni = array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)

Vi allego il codice di inserimento

Do until i > UBound(A_misure)
   A_misure(i) = rs("dati") * 0.1
   A_giorni(i) = rs("DataMisura1")
   rs.movenext
   i = i + 1
loop
rs.close
end function

All'interno del codice dovrei mettergli una cosa così:
if rs.eof then vettore(i) = -1
che dite si può fare?