DLookup type Mismatch

[S1naps1s]

I don't know what I am doing wrong. Someone please help! I am doing a DLookup and I am getting error code 13 type mismatch.
This is my code.

EntDay = DLookup("EntitleType", "tblEntitlements", "ClockNbrID = " & Me.ClockNbrID & "" And "[EntitleStartDate] <= #" & DayID & "#" And "[EntitleEndDate] >= #" & DayID & "#")

These are the codes


Dim Ent Day As String
Dim DayID As Date
EntitleType is set as Text in the table tblEntitlements
EntitleStartDate is a Date/Time in the table tblEntitlements
EntitleEndDate is a Date/Time in the table tblEntitlements

I am sure it is something simple, but I can't figure out what I am doing wrong.

[pbaldy]

You have extraneous quotes. Try

EntDay = DLookup("EntitleType", "tblEntitlements", "ClockNbrID = " & Me.ClockNbrID & " And [EntitleStartDate] <= #" & DayID & "# And [EntitleEndDate] >= #" & DayID & "#")

[S1naps1s]

Awesome! Thanks!

[pbaldy]

Happy to help!