Hvordan trækker man 2 datoer fra hinanden

I VBA kunne det se sådan ud:

Sub antalDage()
Dim Endato As Date
    Endato = "01-03-2008"
    dage = DateDiff("d", Endato, Now, 2, 2)
End Sub

jeg får en fejl

Lad os nu sige at min post i databasen hedder dato.

Hvor sætter jeg det ind i dit forslag?

Private Sub findAntalDage()
Dim Endato As Date
    Endato = "01-03-2008"      'Min test i mangel af DB v/hånden - linien slettes
    aD = antalDage(Endato)      'i stedet for EnDato indsætter du her DB_datofeltet
End Sub
Function antalDage(Endato As Date)
    antalDage = DateDiff("d", Endato, Now, 2, 2)
End Function

får stadig følgende fejl:

Der er en syntaksfejl
/temp/testdato.asp, line 9, column 8
Private Sub findAntalDage()
-------^

min post i min access database hedder "opfdato".

Hvad mon fejlen skyldes?

prøv at slette "Private"

I VB Script er der i hvery fald ikke noget som hedder Private.

VBA <> VB Script

... selv om de ligner.

har selv klaret det

Endato = rs("opfdato")   
nydato = Now()
dage = datediff("d", endato, nydato)

lukker spm