Viser ikke indhold af Array

Hjælp! Denne haster lidt.

Jeg har en kode som denne nedenfor og alt ser ud til at virke bort set fra sidste halvdel, der hvor iDate(i) skal skrives ud. Der ligger ikke noget i iDate. Er det nogen der kan genneskue hvorfor ? Det er meningen at jeg vil sortere iDate inden den skrives ud i sidste del af koden, men det ville jeg lige vente med.

        Dim myArr, myArray, myNewArray, t, u, v, FName, EName, row, rs, iAar, eAar, iDate
       
        eAar = Request.querystring("Aar")
        If eAar <> "" Then
            iAar = eAar
        Else
            iAar = "200506"           
        End If

        '/// Værtskaber - Main Data ////////////////////////////////////////////////////////////
        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")

        'Create DSN connection
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log/vl10.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Vaertskaber Where Aar =" & "'" & iAar & "'"
        'Response.Write(strSQL)
           
        'Open DB
        rs.Open strSQL, strDSN, 1

        'Make a loop finding the number of dates
        i = 0
        do while not rs.eof 'Looping rows
            iString = rs("Date")
            Response.Write iString & "<br>"           
            If iString <> "" Then
                i = i + 1
            End If
            rs.MoveNext
        Loop
       
        'What is the number
        Antal = CInt(i)
        Response.Write Antal & "<br>"
        ' hertil virker det fint
       
        'Redimention of iDate
        ReDim iDate(Antal)

        If not rs.eof then
            For i = 0 to Antal
                iDate(i) = rs(i)
            Next
        End If
           
        Max = ubound(iDate)
        'Response.Write Max & "<br>"
       
        For i = 1 to Max
            Response.Write "TEST" & iDate(i) & "<br>"
        Next
       
        'Closing database, we don't need it anymore - we have the info in the array
        rs.close()
        Set rs = Nothing