Não consigo manipular array bidimensional

[LuX_ 2]

Em uma tabela no banco de dados eu tenho tres registros. Eu fiz uma consulta: "Select * from tabcategoria" e ela retorna os 3 resultados.

Eu gostaria de pegar o rs("categoria") e o rs("nome_categoria") e guardar os valores em uma matriz dinâmica bidimensional.

Para isso estava fazendo como no código abaixo.

dim a_categoria(),contador
contador=0
 do while rs.EOF = false
	redim preserve a_categoria(contador,1)
		a_categoria(contador,0)  =  rs("categoria")
		a_categoria(contador,1) = rs("nome_categoria")
		rs.moveNext
		contador = contador + 1
	loop

Tenho o seguinte erro: "Subscrito fora do intervalo"

rs é o meu recordSet.

Isso é tudo.

Gostaria de pegar o primeiro registro do banco e armazenar em a_categoria(0,0) o rs("categoria") e em a_categoria(0,1) o rs("nome_categoria")

O segundo em a_categoria(1,0) e o rs("nome_categoria") em a_categoria(1,1) e assim por diante até o terceiro. Sendo que não serão sempre 3 registros no banco...por isso que seja com 3,4,5 ou 1000.

 

Onde é que estou errado, por favor? Obrigado

[LuX_ 2]

O erro ocorre nessa linha:

 

redim preserve a_categoria(contador,1)

[Mário Monteiro 179]

testei aqui e tambem nao consegui fazer funcionar para um array com mais de uma dimensao

 

para um array simples funciona tranquilamente esta solucao

 

mas nao entendi porque precisa fazer funcionar em um array e nao simplesmente usando o recordset mesmo