Visual Basic - no me ejecuta la orden !

tengo este ciclo
lo que quiero que haga es que me llene la matriz con todos los valores menos esos 3 (hora, indice y 01JDU070ZV11). se ejecuta bien el ciclo, pero cuando listo la matriz me aparecen, que puede estar mal ?

For X = 0 To CamposDeTabla.Fields.Count - 1
Select Case CamposDeTabla.Fields(X).Name
Case Is <> "Hora"
rsVector(X) = CamposDeTabla.Fields(X).Name
Case Is <> "Indice"
rsVector(X) = CamposDeTabla.Fields(X).Name
Case Is <> "01JDU070ZV11"
rsVector(X) = CamposDeTabla.Fields(X).Name
End Select
Next X

Yo creo q se te ponen xq el campo hora, por ejemplo ,es diferente al campo indice y entonces entra por ahi. prueba a ver:
if camposdetabla.fields(x).name <> "hora" and camposdetabla.fields(x).name <> "indice" and camposdetabla.fields(x).name <> "01JDU070ZV11" then
..
end if

me funciono, ya no me aparecen los 3 campos el problema que ahora tengo, es que

para verificar que no se guardaron, lo que hago es poner toda la mtriz en una lista..... pero ahora en vez de aparecerme esos tres nombres, me deja espacios en blanco y no me los pone consecutivamente EJEMPLO


(interpresese los puntos suspensivos como espacio en blanco en la lista)

...
...
NO
SO
NO2
...
H2O

en ves de aparecer en la lista asi

NO
SO
NO2
H2O


esta es mi instruccion de la lista

For borraesto = 0 To CamposDeTabla.Fields.Count - 1
List1.AddItem rsVector(borraesto)
Next borraesto

Bueno.. yo creo q eso es por el bucle for q usas para poner los valores en la matriz ya q aunq no grabas el indice se aumenta... en fin yo haria una variable para el subindice y la incrementaria dentro del if:
n=0
For X = 0 To CamposDeTabla.Fields.Count - 1
if .... then
n= n+1
...
end if
a ver si hay suerte

estoy intentando pero no puedo !

gracias.

si alguien tiene otra idea, se los agradecere !

n = 0
For X = 0 To CamposDeTabla.Fields.Count - 1
if camposdetabla.fields(x).name <> "hora" and camposdetabla.fields(x).name <> "indice" and camposdetabla.fields(x).name <> "01JDU070ZV11" then
rsVector(n) = CamposDeTabla.Fields(X).Name
n = n+1
end if
next

gracias, alejandro me lo puso bien, pero por la manera ke lo escribio, no le entendi !

y la explicasion mas explicita de yo pues me puso claro todo

gracias!