This code works. Opens to ContactDetail_frm new record with T1_FirstName_fld with focus.
DoCmd.OpenForm "ContactDetail_frm", acNormal, "", "1=0"
On Error Resume Next
DoCmd.SearchForRecord , "", acFirst, "[ContactID]=" & Nz(DMax("[ContactID]", Form.RecordSource), 0)...