Indexar una tabla para agilizar una busqueda

[LluviaRamirez]

Disculpa tanta lata, pero apenas estoy entendiendo lo de los vectores, te mando mi codigo, haber si asi quedaria?
sqlr= "SELECT Articulo FROM FacturaP WHERE Bandera=0"
rs.Open sqlr, MM_ConFactura_STRING
dim miTabla
miTabla = rs.GetRows
rs.Close
set rs = nothing
'MM_ConFactura_STRING.Close
set MM_ConFactura_STRING = nothing

if isarray(mitabla) then
response.write(uBound(mitabla,2))
for I = 0 to UBound(miTabla,2)

sqlr2 = "SELECT Articulo FROM ProveedorArticulos WHERE Articulo = '"& mitabla(0,I) &"'"
rs2.Open sqlr2, MM_ConD84_STRING
response.Write(mitabla(0,I))
sqlUp = "UPDATE FacturaP Set ClaveArtCMK= ' " & rs2("Articulo") &" ' Where Articulo='" & mitabla(0,I) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.CommandTimeout = 0
cmdUpDate.Execute
next
end if
response.end