Текст в текстовом поле не будет входить в список и сохраняться для доступа (2016) к базе данных. Почему?

---

Это те данные, которые у меня есть, и ничего не добавляется, когда я нажимаю кнопку Addtolist и не понимаю почему? Кто-нибудь поможет?

Private Sub Addtolist_Click()
    vol_my_worked_hrs.RowSource = vol_my_worked_hrs.RowSource & MyText1 & MyText2 & ";"
End Sub

поле со списком преобразуется в поле списка : vol_my_worked_hrs

Что я уже пробовал:

У меня есть
а) список с row source = Value List
Б) 2 колонки
в) собственность 'Allow Value List Edits' устанавливать Yes
д) наименование управления ListBox 'vol_my_worked_hrs'

me.vol_my_worked_hrs.AddItem me.MyText1
me.vol_my_worked_hrs.AddItem me.MyText2

---