Replace this line in your code with the one below and see if it works. Syntax at the end around the date is changed from what you had.

Me.[Pump #1 Initial Reading] = DLookup("Gallons Used #1", "Bulk Fuel", "Date = #" & Date - 1 & "#"))