Try this:

strSQL = strSQL & " AND Expenses.Date_Incurred BETWEEN " & "#" & DTPicker2.Value & "# AND #" & DTPicker1.Value & "#"