Ciao, se I quando esce dal ciclo FOR vale 22, significa che questa istruzione: ReDim RF_arraySedi(0 To rcs.RecordCount - 1, 0 To 1) equivale a: ReDim RF_arraySedi(0 To 20, 0 To 1)
Alla fine tu con il ReDim vuoi portare il primo indice a 22, ma questo non è possibile, in quanto se vuoi modificare un l'indice di un array dinamico, lo puoi fare soltanto con l'ultimo indice. Nel tuo caso, con un array bidimensionale l'ultimo indice è quello che va da 0 a 1 (0 To 1)!!
Se ti serve modificare la grandezza del vettore, devi fare una cosa del genere:
codice:
ReDim RF_arraySedi(0 To 1,0 To rcs.RecordCount - 1)
In questo caso alla fine puoi fare la modifica:
codice:
ReDim Preserve RF_arraySedi(1,22)