Son bir sorunum kaldı

Alıntı
<%

'//İSTATİSTİKLER
Set ToplamYazi = Conn.Execute("Select count(kimlik) as toplam from dbo_sayac_teslim where ONAY=1")
ToplamYazim = ToplamYazi("toplam")
ToplamYazi.Close
Set ToplamYazi = Nothing
%>
Bu şekilde vt de toplam kaç adet kayıt var görüyorum sorun yok ama kodu şu şekilde değiştirince çalışmıyor

Alıntı
<%

'//İSTATİSTİKLER

Set ToplamYazi = Conn.Execute("Select count(kimlik) as toplam from dbo_sayac_teslim where kategori=G4")
ToplamYazim = ToplamYazi("toplam")
ToplamYazi.Close
Set ToplamYazi = Nothing
%>
Burada yapmak istediğim de kategori sütununda kaç tane G4 var toplamı yazdırsın.

"Kimlik = id olarak kullanılmıştır."