Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Program'

/deneme/d.asp, line 73

boyle bir hata alıyorum surekli.
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şekkur ederim