Statistik - Hvorfor gør den det ikke rigtigt?

StrSQL = "SELECT * From Popstats Where SideId= SideId"
RS.Open strSQL, objConn, 2, 2
If Not RS.Eof Then
RS("Antal")=RS("Antal") + 1
RS.Update
RS.Close
Else
StrSQL = "SELECT * From Popstats"
RS.Open strSQL, objConn, 2, 2
RS.AddNew
RS("SideId")=SideId
RS("Antal")="1"
RS.Update
RS.Close
End if