Try changing to:
Code:
Dim Titles as Variant
Titles = DLookup("[Title]", "[IA Expiration]", "Title")
Titles = Titles & " - " & Format(Date, "dd mmm yyyy")
msgbox Titles
.Subject = Titles
What does the message box display?
On another note, something looks wrong with the DLookup function.
The syntax is:
DLookup(Expr, Domain, Criteria)
The criteria clause is missing a value. Should be something like "Title = '" & Me.Something & "'" (if 'Title' is text)
Code:
Titles = DLookup("[Title]", "[IA Expiration]", "Title = '" & Me.Something & "'")