Error en redimension de Arreglo

[Shiryu_Libra]

amigos, estoy intentando realizar unos arreglos, para poder evaluar costos, en este caso miren el codigo

'primero buscamos las matriculas y los indices para crear los arreglos de consulta

SELECT id_matricula, index, periodo FROM LE where status=1
'creo las variables a usar
DIM matriculas()
DIM indexs()
DIM periodos()
DIM cont1
DIM montos()
DIM x
con1=0
x=0

while mientras no sea el final
ReDim Preserve matriculas(cont)
matriculas(cont)=RS id_matricula value
ReDim Preserve indexs(cont)
indexs(cont)=RS index value
ReDim Preserve periodos(cont)
periodos(cont)=RS periodo value
RS movenext
cont1=cont1+1
wend
RS close
hasta aki todo bien