Access Unbound Combo Box Not Working in accde

I have an unbound record-search combo-box on a form that after awhile stops working when I publish the database as an accde but I dont know why. Each time it happens, replace the database with a new accde version, but it keeps happening. Is it the VBA code or something else? The code behind it is below:

Form Object:

Private Sub cboSearchName_AfterUpdate()
    Me.chkSupportTerms = False
    Me.chkNonSupportTerms = False
    If Me.cboHRPartner <> "" Then Me.cboHRPartner = ""
    mForms.cboSearchName Me
End Sub

Select allOpen in new window

Module

Sub cboSearchName(frmMe As Form)
    Application.Echo False
    DoCmd.ShowAllRecords
    frmMe.SupportEmployee.SetFocus
    DoCmd.FindRecord frmMe.cboSearchName, acAnywhere, False, acSearchAll, True
    Application.Echo True
End Sub

Select allOpen in new window