Many thanks to both Bobs :D
got there with this
DoCmd.ApplyFilter , "[next contact] Between " & Format(Date - 1, "\#mm\/dd\/yyyy\#") & " And " & Format(Date, "\#mm\/dd\/yyyy\#")
it didnt like Me.Filteron ?
funny how i had to change from date , date+1 to date-1 and date
oh well...