redim array ...

Jeg har et array med dif 50 pladser. Men hvordan tilpasser jeg det til det faktiske ?

Mener det er noget med redim.

en der kan hjælpe ??

-------

Dim tempArray(50,4)

i = 0
do while not rs.eof
if date() - rs(5) > 7 then
tid = 7
else
tid = date() - rs(5)
end if
if tid < 0 then tid = 1
if rs(1) <> "" then
tempArray(i,3) = Round(rs(1)/tid, 0)
tempArray(i,2) = rs(4)
tempArray(i,1) = rs(2)
tempArray(i,0) = rs(3)
i = i+1
end if
rs.movenext
loop