Select Count vil ikke virke

Jeg har på min hjemmeside lavet en masse forspørgelser som denne nede under her:

Set rs = Conn.Execute("SELECT COUNT(*) AS records FROM fun")
intRecords = int(rs("records"))
rs.Close


Men de virker aldrig
Jeg får bare følgende svar:


Microsoft VBScript runtime error '800a01ca'

Variable uses an Automation type not supported in VBScript 

Og altid på den linje i midten af scriptet.
I dette tilfælde er det.
intRecords = int(rs("records"))

Jeg har set det virke hos en anden der bruger sammen webhotel som jeg. Så hvad kan jeg gør?? Har jeg lavet en fejl eller hvad sker der?