perhaps this will be better:

intBoxTotalMis = DSum("[mis]", "Used", "[Boxcode] = " & strQuote & strBoxCode & strQuote & "And [Linecode] = " & strQuote & strFilterLine & strQuote)