Indexar una tabla para agilizar una busqueda

[LluviaRamirez]

Ok, estoy probando el codigo solo haciendo una consulta, no estoy poniendo aun el update a la tabla FacturaP, y sigo en el infinito, podrias hecharle un vistaso a mi codigo haber si hay algo mal?
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

for I = 0 to UBound(miTabla,2)
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next