Date only in variable

[LB79]

Hi all,

Im having a problem with a date in a variable.
I have an automated Outlook calendar entry which is set to All Day, but when it runs its still showing start and end times (not in the All Day format).

The table/field where the date is stored is formatted to ‘DD MM YYYY’.
I've read that adding # to the date will solve the problem but im getting Type Mismatch errors when I try.
Please can someone advise me on this?

Thanks

[SIZE=3][FONT=Calibri]Private Sub ATMT_cmd1_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]ATMTSQL = "SELECT tbl_REF_Schedule.Type, tbl_REF_Schedule.UN, tbl_REF_RMOPIC.[Agency Name], tbl_REF_Schedule.PIC, tbl_REF_Schedule.Date1"[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]ATMTSQL = ATMTSQL & " FROM tbl_REF_Schedule INNER JOIN tbl_REF_RMOPIC ON tbl_REF_Schedule.UN = tbl_REF_RMOPIC.[UN Code]"[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]ATMTSQL = ATMTSQL & " WHERE (((tbl_REF_Schedule.Type)='Criteria') AND ((tbl_REF_Schedule.Date1)>Now()-1));"[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Set RS = CurrentDb.OpenRecordset(ATMTSQL, dbOpenSnapshot)[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]If RS.RecordCount = 0 Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Set RS = Nothing[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Exit Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Else[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]RS.MoveFirst[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Do While Not RS.EOF[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Subject =  RS![UN] [/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Dte = "#" & RS![Date1] & "#"  ‘’’’’’Debug’’’’’’[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Call CalandarEntry[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]RS.MoveNext[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Loop[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End If[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Set RS = Nothing[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Call ATMT_Warnings_On[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub[/FONT][/SIZE]