Cita: Buscar= "SELECT Detalle FROM InvItm WHERE CodItem='" & Code & "' ORDER BY Detalle"
Set Resulta = DB.Execute(Buscar)
Info=Resulta("Detalle") %> <<<<<<<<<<<<<<<<<<<<< esta es la linea gracias por la ayuda

aahh que Shiryu_Libra
Bueno, si revisan en las respuestas anteriores sobre tu error (hay cientos de miles de millones de post similares, solo exagero un poquito

), verás que el error es por que tu consulta no te regresó registros e igualmente estas intentando leer un campo, si ahora me dices que si
te debería haber regresado registros, entonces el error lo tienes en la condición del SQL.
Saludos