Visual Basic.NET - recorrer Coleccion + vector + visual basic 2007

Amigos tengo un nuevo problema, es el siguiente, creo una colección y una variable de 3 posiciones, lleno las 3 posiciones y cargo las mismas en la colección este proceso lo ejecuto varias veces, pero cuando recorro la colección siempre me muestra el último dato cargado
Aquí el código

Dim Vector(3) as string
Dim Coleccion_Memoria as Collection
‘*********** Carga el Vector y las Colecciones
Do Until Tabla0.EOF = True
Vector(1) = Tabla0.Fields(“Nombre”).Value.ToString)
Vector(2) = Tabla0.Fields(“Apellido”).Value.ToString)
Vector(3) = Tabla0.Fields(“Edad”).Value.ToString)
Coleccion_Memoria.add Vector
Tabla0.MoveNext()
Loop
‘*********** Recorre las Colecciones y Muestra el Dato de apellido
For I = 1 to Coleccion_Memoria.Count
MsgBox(Coleccion_Memoria (I)(2).ToString)
Next I

Este código me funciona bien en Visual Basic 6.0, no entiendo por que no en 2005

como ordeno vectores??
urgente