[Resolvido] Array Dinâmico com Banco de Dados

Bom dia a Todos.

Preciso puxar os dados de uma tabela e utiliar array para listá-los na tela então pensei preciso fazer um loop não só de registros mais no nome da variável que receberá o loop por ex:

nome1="João"
nome2="maria"
nome3="teste"
e por ai vai...

tentei fazer da seguinte forma mais confesso que embaralhou um pouco a cabeça:

set listar = Server.CreateObject("adodb.recordset")
sql = "select * from produtos order by prod_id desc"
listar.open sql,conex, 3,3

dim total
total = listar.recordcount

dim nome()
for x = 0 to total
O Problema está aqui não entendo o que preciso fazer nessa parte.
next

Obrigado.