Zerar array bidimensional

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