Problema com foreach

Galera meu problema é o seguinte, tenho uma tabela com diversos nomes, coloquei todos em um record set mas preciso fazer um foreach apenas com os nomes distintos.

a tabela esta mais ou menos assim:

JOAO

JOAO

ANDRE

MARIA

MARIA

MARIA

FRANCISCO

eu preciso de um array assim:

JOAO

ANDRE

MARIA

FRANCISCO

um esboço de como eu estou fazendo:

nomeAnterior = 0
dim myArray()
dim i
i=0

while not rseof

if rs("nome") <> nomeAnterior then
nomeAnterior = rs("nome")
redim myArray(i)
myArray(i) = rs("nome")
response.write ("AAAAA")
end if

for each dados in myArray
response.write dados
next

Quando eu do o response.write("AAAA") ele da certo, apenas nos nomes distintos; mas qnd eu dow o foreach ele tras todos os nomes até os repetidos. Alguem pode me dizer o que esta errado nessa logica para esse foreach trazer apenas os nomes distintos, ou seja apenas os nomes onde ele imprimiu o "AAAAA"

vlwz