Thanks PBaldy
I have now changed the code to this:
Me.txtTotalEarnings = DSum("Price", "KatiesPeriodTakings", _ &
"AppDate" >= CDate([Forms]![frmKatiesTakings]![txtStartDate]) And _ &
"AppDate" <= CDate([Forms]![frmKatiesTakings]![txtEndDate]))
But I am still getting a type mismatch
Thanks...