KeyDown event: vbKeyUp, vbKeyDown to increment datefield in a form without losing focus of the field

Question

I have a teenie little code in use vbKeyUp or Down to increment a date field (SaleDate). How can I keep the focus in the Field SaleDate? Currently, the UpArrow up key decr