Visning af samme dato i næste post

Her er en kode, som jeg bruger til at vise samme data i næste post, men jeg får nogle mærkelige resultater hvis det gælder datoer.

Private Sub Form_Current
  Dim rs As DAO.Recordset
  If Me.NewRecord Then
      Set rs = Me.RecordsetClone
      rs.MoveLast
      Me!DitFelt.DefaultValue =  rs!DitFelt
      rs.Close
  End If
End sub

Skal der tilføjes noget i koden når det gælder datoer.