Array spørgsmål igen

Jeg har denne kode:
        i = 0
        j = 0
        do while not rs.eof 'Looping rows
            iString = rs("Date")
            If iString <> "" Then
                i = i + 1
                Dato(i, xrow) = iString
                Response.Write "<td width=42 Class=RammeKolonnerHTB><img src=images/sp.gif width=42 height=1><br>" & iString & "</td>"
            End If
            rs.MoveNext
        Loop
       
        j = 9
        For k = i to j
            Response.Write "<td width=42 Class=RammeKolonnerHTB><img src=images/sp.gif width=42 height=1><br>Dato</td>"
        Next

Variablen "i" tæller hvor mange datoer jeg har i min db. Jeg ville gerne kunne gemme "i" og indholdet af iString i et array til senere brug. hvordan gør jeg det ?

Jeg har gang i linje Dato(i, xrow) = iString, men det virker ikke rigtig