Pasar resultado de una columna a variables

[german_martin]

Gracias chicos!!
Me dieron una idea de como hacerlo y buscando buscando en internet logre armar una funcion asi:

Public Function getTodo(ByVal strConexion As String) As ArrayList

Dim lista = New ArrayList
Dim arr(1) As String
Dim db = New ADODB.Connection
db.Open(strConexion)

Dim rs = New Recordset

rs.Open("SELECT Grupo, Total FROM dbo.BHInv_Treev_ALL", db)

rs.MoveFirst()
While Not rs.EOF

arr(0) = rs("Grupo").Value
arr(1) = rs("Total").Value

lista.Add(arr)

rs.MoveNext()

End While

rs.Close()
db.Close()

Return lista
End Function



Pero el problema es que me pisa el valor anterior. QUe estoy diciendo?
Si mi tabla es:
TECNICO Cantidad
Pepefel 4
JoseMar 6
Ronaldo 3
Marcelo 1

Y cuando ejecuto la funcion haciendo por ej, lista = getTodo(str)
Lo guardado en la matriz es:
Marcelo 1
Marcelo 1
Marcelo 1
Marcelo 1

Es como que los valores que va leyendo pisan a todos los anteriores


En que me estoy equivocando?