For one thing if you don't have your little duckies in order, ie.,... ',",(,&,space, , ...after pasting that perfect code and here are a few I would like to add (!!###@@**!!) you'll get the dreaded syntax error blah. Well, when I think I finally have it figured out they hit me with the even worse "Data type mismatch in criteria expression".

VB adamantly rejects this-

Dim today As Date
today = Date
Set rs = g_DB.Execute("SELECT FeedBins.Bin, Sum(FeedBins.FeedIn) AS TotalIn, Sum(FeedBins.FeedOut) AS TotalOut, FeedBins.Date " & _
"From FeedBins " & _
"GROUP BY FeedBins.Bin, FeedBins.Date " & _
"Having (((FeedBins.Date)='" & today & "')) " & _
"ORDER BY FeedBins.Bin DESC")

Why?