valla denemediğim örnek kalmadı kafada karıştı artık toparlıyamıyorum
Ek Olarak: Tekrar başa dönüp şu şekilde çözüldü.
set ckToplam = baglanti.Execute("Select Sum (ckadet) As ckToplam from tbkayit where ID = "&x&"")
toplamdeger = toplamdeger + ckToplam("ckToplam")