"Самозаполнение" выпадающего списка

После того как в поле со списком "vidbir_zdiysneno" буде введено новое значение, проверяется существует ли такое значение в базе данных (в поле/таблице к которому прикреплен данный элемент управления). Если такого значения еще нет, то оно добавляеться в источник строк списка

Private Sub vidbir_zdiysneno_AfterUpdate()
    Call Req_source_vidbir_zdiysneno
End Sub

Private Sub Req_source_vidbir_zdiysneno()
'Заполняет поле со списком значениями из базы данных
Dim rs As DAO.Recordset
Dim sTemp As String

Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT vidbir_zdiysneno FROM data_act_g")
sTemp = ""
With rs
    If .RecordCount > 0 Then
        Do While Not .EOF
             If .Fields(0).Value <> "" Then sTemp = sTemp & Chr(34) & .Fields(0).Value & Chr(34) & ";"
             .MoveNext
        Loop
        .Close
    End If
End With
vidbir_zdiysneno.RowSource = sTemp

End Sub