Zerar array bidimensional

[juniorocha 0]

Pessoal, pra começar nem sei se criei o array do jeito certo

mas criei ele da seguinte forma dim meuArray(3000,12)

3000 pq nesse item vai entrar um codigo de uma tabela e meses vai entrar o mes

mas até ai tudo bem, está funcionando

 

o problema é que quando eu dow redim meuArray(3000,12) depois que ele foi percorrido num for, ele nao zera

alguem sabe como faço pra fazer como que ele zere a cada vez que eu passar no while?

 

segue o codigo:

 

dim qtdMes(3000,12)
...
				'Aqui ele vai preenchendo o array 
				rsfeitos.movefirst				 
				 while not rsfeitos.eof
		  qtdMes(rsfeitos("iCodFeitos"),rsfeitos("iMesRef")) = rsfeitos("iQtdFeitos")
			rsfeitos.movenext
	  wend

...

			   rsfeitos.movefirst
			   while not rsfeitos.eof 
  ....
			  'Aqui ele percorre o array
				for i=1 to 12 Step 1 
 %>
				   <td align="right">
			<%  response.write qtdMes(rsfeitos("iCodFeitos"),i) %>
				   </td>
		  
		  <% next  
			   
			  'AQUI É ONDE EU QUERIA ZERAR O ARRAY 
			   redim qtdMes(3000,12) 

				rsfeitos.movenext
	wend
%>

Esses "..." sao codigos que nao sao importantes

[Ted k' 126]

tentou chegar no final do processo e jogar que a quantidade de meses é igual a zero??