Help Needed Please

[bsingh1986]

Hi There,
can anyone please help me with code below. I am trying to create a reporting form and want to get the values using this code but it keep giving me runtime error 3464. I am sure I am doing something wrong. Please have a look. your help will be really appreciated.
=====
Code
=====

Dim Task As String

If ((chkDate = True) And (chkIllness = True) And (ChkArea = True)) Then

Task = "Select *from qry_Reports where(([ReferralDate] >= '" & [txtStartDate] & "') or ( [ReferralDate] <= '" & [txtEndDate] & "'))"
RecordSource = Task

End If

 

[shoji]

Use "#" instead of "'" for dates. So, it should be:

   Task = "Select * from qry_Reports where ([ReferralDate] >= #" & [txtStartDate] & "#) or ([ReferralDate] <= #" & [txtEndDate] & "#)"