Ugenumre igen

Har tidligere lavet en tråd om ugenumre og datoen på mandagen i den pågældende uge, men det fungerede aldrig rigtig.

Har en database-tabel (Access):

UgePeriode, UgeNummerStart, UgeNummerSlut, Aarstal
1, 48, 51, 2006
2, 52, 3, 2007
3, 4, 7, 2007
osv.

Skal have lavet en liste med <input> felter til alle hverdagene i den pågældende ugeperiode, ala:

Uge 48
Mandag <input name="27-11-2006">
Mandag <input name="28-11-2006">
Mandag <input name="29-11-2006">
Mandag <input name="30-11-2006">
Mandag <input name="1-12-2006">

Uge 49
Mandag <input name="4-12-2006">

osv. frem til UgeNummerSlut (51 i dette tilfælde)

Har følgende funktion:

Function finddato(ugenr, aar)
    ugedag = 1
    dato = ugedag & "-01-" & aar
    dag1 = datepart("ww", dato, vbMonday, vbFirstFourDays)
    while dag1 <> 1
        ugedag = ugedag + 1
        dato = ugedag & "-01-" & aar
        dag1 = datepart("ww", dato, vbMonday, vbFirstFourDays)
    wend
    dato = clng(ugedag) & "-01-" & aar
    dato = DateAdd("d", 7*(ugenr-1), dato)
    finddato = dato
end function

Som fungerer fint til og med 2007 datoer. Så snart man når ind i 2008, f.eks. med  finddato(4, 2008) så går der kage i datoen. Datoen afviger med 1 dag fra den rigtige...i 2009 udregner den 3 dage forkert.

Hvordan dææælen fikser jeg dette???