Error de automatizacion

[ema21del9]

Obtengo este error al tratar de utilizar uno de los registros de una base de datos, tengo entendido que este error se da cuando falta alguna referencia o libreria, pero el resto de las consultas funcionan de maravilla, se da en la siguiente linea:

Código:

Set stock = New ADODB.Recordset
stock.Open "SELECT * FROM stock WHERE id=" & ultima_compra_id, BD, adOpenStatic, adLockOptimistic
ultima_compra_cost = ultima_compra_coste * stock.Fields(3)

Alguna sugerencia en como solucionarlo?

[zxs23]

Quizas haya un confucion al utilizar la palabra stock como recordset y como campo ó intenta colocando el nombre de los campos en lugar del *, esta raro el problema