dim array dynamisk ?

Jeg henter et antal records ud fra en tabel og vil gerne oprette et array der passer der til:
strSQL = "SELECT CATEGORYID, COUNT(CATEGORYID) AS ANTAL FROM CATEGORYARTICLE WHERE ARTICLEID = "& strID &" GROUP BY ARTICLEID;"
    Set RS = objConn.Execute(strSQL)
    intAntal = CInt(RS("antal"))
    'response.write intAntal
    Dim ArticleArray(intAntal)

        If not RS.EOF Then
            For i = 0 to intAntal
                ArticleArray(i) = RS(i)
            Next
        End if
    DataArray(10) = ArticleArray

Men jeg får en fejl:
Expected integer constant

/initArticle.asp, line 29

Dim ArticleArray(intAntal)
-----------------^

Skulle jeg ikke kunne gøre det her ?!?

vhE1