Привет. на событие Change комбобокса стоит код:

Private Sub FActor_Change()
    On Error GoTo FActor_Change_Error
    Dim f
    f = Me.FActor.Text
    Me.FActor.RowSource = "SELECT OffID,(People.FName &" & "' '" & "& Left(People.LName,1) &" & "'.'" & "& Left(People.PName,1) &" & "'.')" _
        & "AS FIO FROM People INNER JOIN Officers ON People.PeopleID = Officers.PeID WHERE People.FName like '*" & f & "*' ORDER BY People.FName"
    Me.FActor.SelStart = Len(f)
    Me.FActor.SelLength = 0
    Me.FActor.Dropdown
  
    On Error GoTo 0
    Exit Sub

FActor_Change_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FActor_Change, line " & Erl & "."

End Sub

Код работает (фильтрует), но при выборе значения из списка в поле комбо значение пропадает. Переход форма-конструктор-форма - значение появляется. Других процедур для комбо не прописано, кроме начального задания значения комбо.RowSource на событии Form.Load.
В чем может быть причина и как от этого избавиться?

П.С. на других комбо формы такой же код работает как надо.

https://www.sql.ru/forum/1305775/posle-obnovleniya-pustoe-pole-komboboksa