Varför tar det så lång tid för servern att jämföra 2 datum?

Har använt mig av lite olika datumfunktioner för att jämföra just datum, men det tar så pass lång tid för servern att jämföra datumen att jag bara får fram ett felmeddelande.

Hämtar datumet ifrån en access-databas, fältet i tabellen är inställt på just datum.

            Datumet = rst("Datum")
	
         If DateDiff("d", Now, Datumet) > 0 Then
            LaggTillProdukt = True
         Else 'Datumet har utgått
            LaggTillProdukt = False  
         End if

Felmeddelande:

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.