Date parameters need to be bracketed with #, in Access queries.

Try replacing

"Having (((FeedBins.Date)='" & today & "')) " & _

with
"Having (((FeedBins.Date)=#" & today & "#)) " & _