Overflow CInt

Jeg er begyndt at få fejlen - Overflow Cint - med dette stykke kode
Er der en der kan forklare hvorfor den gør det?

sqlProjectCount = "SELECT COUNT(*) as calctotal FROM tbl"
Set rsCount = Server.CreateObject("ADODB.Recordset")
Set rsCount = dbconn.Execute(sqlProjectCount)
If rsCount.eof then
sProjectCount = 0
Else
sProjectCount = rsCount.Fields("calctotal")
End If

if Isnumeric(sProjectCount) then
Response.Write (sProjectCount)
else
sProjectCount= Cint(sProjectCount)
Response.Write (sProjectCount)
end if