Indexar una tabla para agilizar una busqueda

[LluviaRamirez]

unas mil mas o menos, es mucho?
Mira ya reescribi el codigo pero no solucione mucho.
Dim rs, sqlr
Dim rs2,sqlr2
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
sqlr= "SELECT Articulo FROM FacturaP WHERE Bandera='" & 0 & "'"
rs.Open sqlr, MM_ConFactura_STRING
While (NOT rs.EOF)
sqlr2= "SELECT Articulo FROM cmksio.dbo.ProveedorArticulos Where IdArtProv = '" & TRIM(rs("Articulo")) & "' And Proveedor='PFSdeMéxico,S.A'"
rs2.Open sqlr2, MM_ConD84_STRING

if Not rs2.EOF then
'Actualizo en FacturaP la clave de cmk
sqlUp = "UPDATE FacturaP Set ClaveArtCMK= ' " & rs2("Articulo") &" ' Where Articulo='" & TRIM(rs("Articulo")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.CommandTimeout = 0
cmdUpDate.Execute

end if
rs2.close()
rs.movenext()
Wend