Private Sub cbb_NotInList(NewData As String, Response As Integer)
    Dim intNewCategory As Integer, intTruncateName As Integer, strTitle As String, intMsgDialog As Integer
      Dim rs As DAO.Recordset
    strTitle = "Такой пункт отсутствует в списке "
    intMsgDialog = vbYesNo + vbQuestion + vbDefaultButton1
    intNewCategory = MsgBox("Добавить новый пункт?", intMsgDialog, strTitle)
If intNewCategory = vbYes Then
DoCmd.RunCommand acCmdUndo
' Set rs = CurrentDb.OpenRecordset("тблВкоторуюДобавляем") 'если в таблице одно поле
'        rs.AddNew
'        rs!пункт = NewData
'        rs.Update
'Set rs = Nothing
 DoCmd.OpenForm "добавление", acNormal, , , acAdd, acDialog, NewData  'форма на таблице в которую добавляем,если в ней более 1 поля
' в форме "добавление"
     'Private Sub Form_Load()
          'Me.пункт = Me.OpenArgs
     'End Sub

        Response = acDataErrAdded
    End If

End Sub