Ho questo codice:

codice:
If Not (rcs Is Nothing) Then
   If rcs.State = adStateOpen Then
      If Not rcs.EOF Then
         ReDim RF_arraySedi(0 To rcs.RecordCount - 1, 0 To 1)

         For I = 1 To rcs.RecordCount
             RF_arraySedi(I - 1, 0) = rcs.Fields.Item("sede_provincia").Value

             If IsNull(rcs.Fields.Item("sede_prov_descrizione").Value) Then
                RF_arraySedi(I - 1, 1) = ""
             Else
                RF_arraySedi(I - 1, 1) = rcs.Fields.Item("sede_prov_descrizione").Value
             End If

             rcs.MoveNext
         Next I

         ReDim Preserve RF_arraySedi(22, 1)
         RF_arraySedi(I - 1, 0) = "XX"
         RF_arraySedi(I - 1, 1) = "Non Specificata" 
      End If
   End If
End If
rcs è un recordset valorizzato da una query preventiva, e nel ciclo for sopra indicato carica correttamente l'array bidimensionale.

I, quando esco dal ciclo vale 22.

Fin qui tutto ok!

Quello che vorrei fare è aggiungere le voci indicate nella parte in grassetto.
Tuttavia le 3 righe i codice sopra evidenziate in grassetto mi ritonano il messaggio di: "indice non compreso nell'intervallo".

Devo aggiungere questa voce, mi sapete aiutare su come sistemare questo codice?