Leer varios campos

[ci2000]

Hola, necesito leer la información de varios campos, pero como son muchos quisiera hacer una rutina para que no sea tan largo el código.

Pongo un ejemplo para explicar lo que necesito hacer:

Código:

 
 Dim I As Integer
 Dim Matriz(5)
 Dim Tabla As Recordset
 
 Matriz(1) = Tabla!Campo1
 Matriz(2) = Tabla!Campo2
 Matriz(3) = Tabla!Campo3
 Matriz(4) = Tabla!Campo4
 Matriz(5) = Tabla!Campo5
 
 'For I = 1 To 5
 ' Matriz(I) = Tabla!Campo & Str(I)
 'Next

Lo que está comentado con comilla simple es lo que quiero hacer, pero no me funciona. Este ejemplo lo hice con cinco campos pero en realidad son muchos más.

Gracias por las respuestas
Saludos

[ci2000]

¿Nadie sabe cómo se hace esto?

[elmonje]

No entiendo bien tu consulta, tene una tabla con 1 campo por registro, o mas de un campo por registro?.

[GeoAvila]

claro algo muy facil jajaj

Dim I As Integer
Dim Matriz(5)
Dim Tabla As Recordset

For I = 1 To 5
Matriz(I) = Tabla(I)
Next

yo diría que es así..

nos vemos..

[ManuNic]

Dim matriz=(rst.fields-1)
for i = 0 to rst.fields-1
matriz(i) = rst.field(i)
next