Try something like this:
Function ClientsInterestClient()
With CodeContextObject
DoCmd.OpenForm "Clients Interest Enquiry", acNormal, "", ClientsFilter, acFormEdit, acWindowNormal
DoCmd.GoToRecord acDataForm, "Clients Interest Enquiry", acGoTo, .CurrentRecord...