dateadd

Jag har följande kod som skall lägga till en vecka på ett befintligt datum...

Datumet består av både datum och tid enligt: 2005-01-03 08:00:00.00

Lägger jag till 7 dagar enlgt koden nedan, så blir resultatet: 2005-01-10 00:00:00.000

Hur gör jag för att behålla klockslaget, när jag lägger till 7 dagar?

Mvh
Henrik :)

sSQL="SELECT * FROM tblTask_grund_lönn order by [PlanStartDate]"
	Rs.Open sSQL, Conn
	
	iId = 1000000
	
	while not Rs.EOF
		
		tmPlanStartDate = Rs("PlanStartDate")
		tmPlanStopDate = Rs("PlanStopDate")
		
		sCreatedBy = Rs("CreatedBy")
		sTaskNr = Rs("TaskNr")
		sUserName = Rs("User")
		sCustomerNr = Rs("CustomerNr")
		sCustomerName = Rs("CustomerName")
		sTask = Rs("Task")
		
		For i = 1 to 4
			
			tmNewPlanStartDate=dateAdd("d", tmPlanStartDate, i*7)
			tmNewPlanStopDate=dateAdd("d", tmPlanStopDate, i*7)
			
			if sSQL <> "" then sSQL = sSQL & vbcrlf
			sSQL = sSQL & "INSERT INTO [tblTask_grund_lönn] ([Id], [CreatedBy], [TaskNr], [PlanStartDate], [PlanStopDate], [User], [CustomerNr], [CustomerName], [Task])" _
						& " Values (" & iId & ", '" & sCreatedBy & "', '" & sTaskNr & "', '" & tmNewPlanStartDate & "', '" & tmNewPlanstopDate & "', '" & sUserName & "', '" & sCustomerNr & "', '" & sCustomerName & "', '" & sTask & "')"
			iId = iId+1
		next
		Rs.MoveNext
	wend

2005-01-03 08:00:00.00 ser inte ut som ett korrekt datum (2005-01-03 08:00:00)? Du kan prova att ta CDate(left(tmPlanStartDate,19)) kanske?