DatePart problem!?

Hejsan..
Nu har jag problem!
Jag har värden i en kolumn (datatyp varChar) som ser ut så här:
200137 (typ)
Jag ska sedan plocka ur 37 ur detta, så här:
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = RSVeckor("Vecka")
RegVecka = Right(RegVecka, Len(RegVecka) -4)

Sedan ska jag ta reda på startdatum för denna vecka så här:
IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop

Funkar inte ??? Sätter jag ett värde själv istället för RegVecka så funkar det! Vad saknas??? förutom min kompetens!! Det det larmar på är att den inte kör DatePart biten riktigt:
Invalid procedure call or argument: 'DateAdd'

//niclas

------------------
ingenting är omöjligt det tar bara lite längre tid..

Nä hä!
Om jag ställer frågan så här då:
Vad är skillnaden?

Den här:
'*************************************
RSVeckor("Vecka")="200137"
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = RSVeckor("Vecka")
RegVecka = Right(RegVecka, Len(RegVecka) -4)
'*************************************

IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop

'*************************************

Eller den här:
'*************************************
RSVeckor("Vecka")="200137"
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = 37
'*************************************
IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop
'*************************************

//niclas

------------------
ingenting är omöjligt det tar bara lite längre tid..

IntYear = RegYear &"-01-01"

fweek = datepart("ww", intYear,2,2)
if fweek > 1 then
   startday = dateadd("d",8-weekday(intYear,2),intYear)
else
   startday = dateadd("d",-6-weekday(intYear,2),intYear)
end if

startdatum = dateadd("ww",weekno,startday)
enddatum = dateadd("d",6,startday)

------------------
essentitia preter non sans multiplicandum