Array problem

Hvorfor får jeg subscript out of range når jeg omdefinerer mit array dynamisk???

Dim A1 ()

CONST row = 0
CONST dato = 1
i = 0
        redim A1(i,2)

    SQL = "Select * from artikler where forside = 1 and userlevel >= " & session("usertypeid")
    Set rs = Conn.execute(SQL)
    if rs.eof then
    else
        do while not rs.eof
        A = "<tr><td class=""overskrift""><a href="""
       
        if rs("link") <> "" then
        A = A & rs("link") & """>" & rs("titel") & "</a><br><br></td></tr>"
        else
        A = A & "artikler.asp?mode=vis&artikel=true&kategoriid=" & rs("kategoriid") & "&id=" & rs("artikelid") & """>" & rs("titel") & "</a></td></tr>"
        A = A & "<tr><td>" & rs("teaser") & "<br><br></td></tr>"
        end if
       
       
        A1(i,0) = (A)
        A1(i,1) = (left(rs("oprettet"),8))
        i = i + 1
        redim Preserve A1(i,2)
        A = ""
        rs.movenext
        loop
    end if