Hjælp til DateAdd...

Jeg kunne godt tænke mig at bruge DateAdd til at lægge et antal dage til en dato i langt datoformat. Hvordan får jeg lige hevet datoen ud, så jeg kan gøre det? "***" repræsenterer et datofelt i min mainform i langt datoformat, og det datoen herfra jeg gerne vil have hevet ud:

Private Sub Form_BeforeInsert(Cancel As Integer)
If Format([Forms]![Indtastning]![Inddato], "Long Time") < #6:00:00 AM# Then
Me.Startdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]") - 1, ***)
Me.Slutdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]"), ***)
Else
Me.Startdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]"), ***)
Me.Slutdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]") + 1, ***)
End If
End Sub