Update de varias lineas

Hola al grupo, tengo definido un sp que actualiza los valores de una
tabla en funcion del select de otra:
CREATE PROCEDURE MiProc @producto int, @linea int AS
if exists (select campo from tabla where cod_prod = @producto)
update lineas_pedidos set campo = (select top 1 campo
from tabla
where cod_prod= @producto order by fecha desc, hora desc)
where linea = @linea
GO

El problema es que lo ejecuto en un bucle desde VB6 para varios
registros pero va muy muy lento.
Mi pregunta es si hay alguna otra forma, bien desde VB6 o bien desde
sql para poder hacer este proceso de forma mas rapida.

Muchas gracias