I gave this a try using this:
Private Sub Form_Load()
On Error GoTo Form_Load_Err
FilterList
Call FormStartUp: Call IssueRewards
Select Case Me.OpenArgs
Case "new"
DoCmd.GoToRecord , , acNewRec
Case Else
DoCmd.SearchForRecord , , , [ID] = Me.OpenArgs...