Microsoft VBScript runtime error '800a000d

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Program'

/deneme/d.asp, line 73

böyle bir hata alıyorum sürekli.
73. satırda ki kod ise

SQL="Select * From Programlar Where onay=1 and id="&Program(0)&" Order by id desc"

yardımcı olan herkese teşekkür ederim

program(0) ı bir stringe tanıt ve veritabanı komutunu stringle çağır
yani:

dim armut
armut=Program(0)


SQL="Select * From Programlar Where onay=1 and id="&armut&" Order by id desc"

inş sorun çözülür