ник: kot_k_k
Совйство "ограничится Списком"- Включено, Свойство - "Отсутствие в списке" пишешь обработку, если прямо в списке это делаешь.
Private Sub cmd_klient_NotInList(NewData As String, Response As Integer)
Dim новые_данные As String
Dim conn As ADODB.Connection
' можно вывести msgBox
Set conn = CurrentProject.Connection
' удвоение апострофов
новые_данные = Replace(NewData, "'", "'")
Response = acDataErrAdded
conn.Execute "Insert Into tlb_Naimen(Naimen) Values('" & NewData & "')"
End Sub