Indexar una tabla para agilizar una busqueda

[LluviaRamirez]

Anexo el codigo:
<% ' Selecciono Articulo que es la clave que el proveedor le pone al articulo
Dim rsFact, sqlFact
Dim rsFact_numRows
Set rsFact = Server.CreateObject("ADODB.Recordset")
rsFact.ActiveConnection = MM_ConFactura_STRING
rsFact.Source = "SELECT Articulo FROM FacturaP WHERE Bandera='" & 0 & "'"
rsFact.CursorType = 0
rsFact.CursorLocation = 2
rsFact.LockType = 1
rsFact.Open()

rsFact_numRows = 0
%>
<%
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")

Dim rsCMKArt
Dim rsCMKArt_numRows

dim vardesc
Set rsCMKArt = Server.CreateObject("ADODB.Recordset")
rsCMKArt.ActiveConnection = MM_ConD84_STRING
rsCMKArt.CursorType = 0
rsCMKArt.CursorLocation = 2
rsCMKArt.LockType = 1

While (NOT rsFact.EOF)

vardesc= rsFact("Articulo")
response.Write(vardesc)
response.Write("<BR>")
'Selecciono de la BD CMKSIO TB ProveedorArticulos la clave que maneja cinemark donde coincida con la clave del articulo proveedor
rsCMKArt.Source = "SELECT Articulo FROM cmksio.dbo.ProveedorArticulos Where IdArtProv = '" & TRIM(rsFact("Articulo")) & "'"
rsCMKArt.Open()

if Not rsCMKArt.EOF then
'Actualizo en FacturaP la clave de cmk
sqlUp = "UPDATE FacturaP Set ClaveArtCMK= ' " & rsCMKArt("Articulo") &" ' Where Articulo='" & TRIM(rsFact("Articulo")) & " ' "
cmdUpDate.ActiveConnection = MM_ConFactura_STRING
cmdUpdate.CommandType = 1
cmdUpDate.CommandText = sqlUp
cmdUpDate.CommandTimeout = 0
cmdUpDate.Execute
end if
rsCMKArt.Close()
rsFact.MoveNext
Wend %>

Alguna sugerencia?!