recuperar dados BD e jogar num array bidimensional

Quero recuperar tres dados do BD e colcoar em um array...

por enquanto so tenho um valor:

....

Dim vetor
vetor = array()
while not rs.eof

Set pessoa = Conn.execute ("Select matricula from MATRICULA where CodPessoa = ('"&codigopessoa&"')")
 ReDim preserve vetor ( UBound( vetor )+1)
 vetor ( Ubound( vetor ) ) = pessoa("matricula")
 ReDim preserve vetor ( UBound( vetor )+1)

rs.Movenext
wend....Quero passar tres valores para o array() "vetor", passando a ser bidimensional

Como faço isso???

O select passaria para

 

Set pessoa = Conn.execute ("Select matricula, nome, lotacao from MATRICULA where CodPessoa = ('"&codigopessoa&"')")

Valeu!