Problema em array

Olá pessoal,

Eu quero pegar cada item distinto(sem repetições) de uma tabela

e guardar em um array, eu estou fazendo assim:

sqlstring = "SELECT DISTINCT produtos FROM avaliacoes"

-

-

quantidade = int(rs.recordcount - 1) ' a variavel quantidade é = 12

dim arrQuantidade(quantidade) ' AQUI DA ERRO

quando coloco a váriavel quantidade que é igual a 4

dentro da declaração do tamanho da array aparece um erro, por que isso

esta acontecendo ???

Aparece o seguinte erro:

Constante inteira esperada

dim arrQuantidade(quantidade)

------------------------^