Problema con select: Pocos parámetros

[Shilfild]

Joe que fallo más tonto, estaba metiendolo como variable de texto y la id es numérica.
Pego el código correcto:

Código:

		sentencia="Select * from discos where id_disco="+ disco +""
		rstIntranet.Open(sentencia,cone,adOpenStatic,adCmdTable)