I am sure this should be easy but it is eluding me. can anyone help?

Private Sub Form_Current()
Dim intnewrec As Integer

intnewrec = Form.NewRecord
If intnewrec = True Then
myDate = date

date is returning Null - it's MS own bloody example for gods Sake!

Thanks in advance,
Andy