Quindi, tu trovi 2 record e popoli l'array su 0 ed 1
da 2 ad 8 devi popolarlo a mano con un ciclo ulteriore che riprende quello precedente partendo da x fino ad 8.
codice:
		x = 0
		reDim preserve azioniIncomplete(rsAzioni.recordcount)
	
		'INIZIO IL CICLO DELLE AZIONI TROVATE
		Do while not rsAzioni.eof
			
			'POPOLO L'ARRAY
			azioniIncomplete(x) = rsAzioni("IDP0RO")
			x = x+1
	
		'PROCEDO IL CICLO DEI AZIONI TROVATE
		rsAzioni.movenext
		loop

		for i = x to conta
			azioniIncomplete(i) = 0
			i = i + 1
		next