In the VBA above, I changed this part to "Discharging Provider Name"
tmp_Found = DCount("[Discharging Provider]", "[Aftercare Report data]", "[Level of Care]=" & in_Level & " AND [Type]='" & in_Type & "' AND [Trending Date]=#" & DateAdd("m", counter_i - 1, in_Date) & "#")
And I changed my query...