Indice non incluso nell'intervallo

[lemming]

Salve,
ho un problema con un ciclo su un array.
Praticamente estraggo una serie di record con una query (select * from tabella), poi per ogni elemento dell'array risultante (arrResult) effettuo delle operazioni se è verificata una condizione:

IF isarray(arrResult) THEN
   FOR i=0 to ubound(arrResult,2)
      IF arrResult(0,i) >1 then
         id=arrResult(0,i)
        ELSE
         id = 0
     END IF
   NEXT
END IF 

tuttavia in esecuzione ottengo l'errore:
Errore di run-time di Microsoft VBScript error '800a0009'
Indice non incluso nell'intervallo: 'arrResult'

qualcuno sa darmi una mano?