select count * as antal where - overflow

Hvad går der galt i denne kode...

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/data/poll.mdb")
Conn.Open DSN
strSQL1 = "SELECT COUNT(*) AS antal FROM dansk WHERE afstemning = 'ja' "
Set rsY = Conn.Execute(strSQL1)
if rsY.eof OR rsY.bof then
Y = 0
else
Y = rsY("antal")
end if

strSQL2 = "SELECT COUNT(*) AS antal FROM dansk "
Set rsA = Conn.Execute(strSQL2)
if rsA.eof OR rsA.bof then
A = 0
else
A = rsA("antal")
end if

Result = int(Y / A) * 100


Det går "kun" galt når der enten ikke nogle records i databasen eller der ikke er nogle records med 'ja'....