Der opstod et overløb

Jeg får fejlmeddelelsen:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0006)
Der opstod et overløb
/workstatistics/index.asp, line 129

Noget af min kode ser sådan her ud:

Do While Not objRS.EOF
        WorkHoursTotal = WorkHoursTotal + objRS("Arbejdstimer_IN")
        ReadPagesTotal = ReadPagesTotal + objRS("Læste_Sider_IN")
        If objRS("Dags_Dato_DT") <> LastRSDate Then
            NumberOfDays = NumberOfDays + 1
            LastRSDate = objRS("Dags_Dato_DT")
        End If
        objRS.MoveNext
      Loop


Her kommer linje 129:


      AverageReadPrDay = ReadPagesTotal / NumberOfDays
      AverageReadPrHour = ReadPagesTotal / WorkHoursTotal

Hvad er der galt?