Changed the code as you advised to BeforeUpdate. Same result, after the End Sub the selection goes away.
Private Sub tb_DateTaken_BeforeUpdate(Cancel As Integer)
Dim dtRWP As Date
dtRWP = DLookup("EmployeeTraining_DateTaken", "tbl_dt_EmployeeTraining", "EmployeeTraining_EmployeeID=" &...