Hjælp til Array ..

En der kan hjælpe mig med et array. Jeg ahr det problem at mit array er langsomt pga. det har for mange pladser (70). Hvordan sætter jeg antallet af pladser efter antallet af det præcise records.

Ret venligst og indsæt helle koden igen.


----------------------------
Dim tempArray(70,4)
i = 0
do while not rs.eof
if date() - rs(4) > 7 then
tid = 7
status = ""
else
status = "NY"
tid = date() - rs(4)
if cint(tid) = 1 then tid = 2
if cint(tid) <= 0 then tid = 1
end if
if rs(1) <> "" then
tempArray(i,3) = Round(rs(1)/tid, 0)
tempArray(i,1) = rs(2)
tempArray(i,2) = status
tempArray(i,0) = rs(3)
i = i+1
----------------------------