Visual Basic - AYUDA CON UN FOR O UN ARRAY. H. E. L. P. ¡¡¡¡¡¡

EL PROBLEMA ES EL SIGUIENTE
POR MEDIO DE UN SELECT OBTENGO UN DATO DETERMINADO EL CUAL ASIGNO A UNA VARIABLE. EL PROBLEMA ES QUE QUIERO LEER TODOS LOS DATOS ANTERIORES A ESE SELECT Y PUBLICAR LOS. DATOS OBTENIDOS

EJEMPLO EN LA TABLA TENGO 5 DATOS Y HAGO EL SELECT

Set Conexion = CreateObject("ADODB.Connection")
Set tabla = CreateObject("ADODB.recordset")
Conexion.Open ("DSN=CONECTA;UID=SA;PWD=vera")
temp = "Select * From TABLA Where status= 3"
tabla.Open temp, Conexion

POR LO QUE EL RECORDSET ESTA POSICIONADO EN DONDE EL STATUS VALE 3. Y AHORA ME TRAIGO EL VALOR Y LO IMPRIMO

dim x as integer 'AQUI ASIGNO ESTA VARIABLE QUE RECIBE EL VALOR
x=tabla!descripcion 'DESCRIPCION ES UNA VARIABLE DE LA TABLA
print x

ESTO ME IMPRIME LA DESCRIPCION DEL RECORD SET QUE APUNTA AL VALOR STATUS=3 EN ESTE CASO ME IMPRIMIO

DEPARATAMENTO DE FINANZAS.

PERO RESULTA QUE TAMBIEN QUIERO IMPRIMIR LAS DESCRIPCIONES ANTERIORES A 3 OSEA LA DESCRIPCION 2 Y LA DESCRIPCION 1. COMO HAGO ESO?????
HE INTENTADO CON UN FOR PERO NO PUEDO?.

ALGUIEN HECHEME UNA MANITA.

Si lo que quieres es imprimir la 1,2 y la 3. Porque no cambias el select
"Select * From Tabla Where status <=3"
y tendrias la tabla con los 3. Despues aplica el For, un While Not Tabla.EOF, o cualquier otra cosa.

Saludos

Yo

SI YA LO HICE PERO EL RECORDSET SE PONE AHORA EN EL PRIMER VALOR OSEA DE LOS TRES VALORES LEE SOLO EL PRIMER VALOR. COMO HAGO PARA QUE LEA LOS VALORES 2 Y 3.
ADEMAS CADA VALOR LO DEBO METER EN UNA VARIABLE.

EL PROBLEMA ES QUE NO SE COMO APLICAR EL FOR?????.

SALUDOS

Despues que tienes la tabla, yo lo haria de esta forma
'Mientras no sea el final de la tabla
Do While Not Tabla.EOF
'Deposito la variable
X=Tabla.Campo
'La imprimo
Print X
'Salto a la proxima Fila
Tabla.MoveNext
Loop