Sumar días en access

muy buenas tarde
necesito de tu ayuda ya que quiero saber como sumar a una fecha inicial una cantidad de días "exis" y que en la fecha final me muerte la fecha contando solo los días hábiles
este es el código que e puesto y las fecha inicial(determinación) que tomo es 14-05-2012 y la fecha final(certificación) me sale 02-06-2012 cuando debe de ser 04-06-2012 en que estoy mal?
Dim d As Integer
d = 15
FECHA_DE_CERTIFICACIÓN = FECHA_DE_DETERMINACIÓN
While d > 0
If (DatePart("w", FECHA_DE_CERTIFICACIÓN) > 1 And DatePart("w", FECHA_DE_CERTIFICACIÓN) < 7) = True Then
d = d - 1
End If
FECHA_DE_CERTIFICACIÓN = FECHA_DE_CERTIFICACIÓN + 1
Wend
por su ayuda gracias...