compile error in format function

[eugz]

Hi All.

Private Sub Form_Open(Cancel As Integer)
    cboDateStart.Value = Format(Now() - 7, "short date")
    ...
End Sub

When I run procedure the Format is highlighted and popup error message:

Compile error:
Can't find project or library

 

[pbaldy]

My first thought is a reference problem:

http://www.accessmvp.com/djsteele/AccessReferenceErrors.html