What if I try this in the control source of the textbox :
=DCount("[PackageCount]", "tblPackageTracking", "Forms!FrmPackageTrackingUPS![Shipper]" AND" Forms!FrmPackageTrackingUPS![BatchNumber]" AND "Forms!FrmPackageTrackingUPS![Date] >=DateAdd("d",0,Date())
What I am hoping this will give me...