Private Sub MySuperPuperCombo_NotInList(NewData As String, Response As Integer)
    
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Select Case MsgBox( _
        "Чего вы там навводили '" & NewData & "' ни фига еще нету." & _
        vbNewLine & vbNewLine & _
        "Добавить эту фигню '" & NewData & "' в справочник ?", vbQuestion + vbYesNo)
    Case vbNo
        MySuperPuperCombo.Undo
        Response = acDataErrContinue
    Case vbYes
        Set cnn = CurrentProject.Connection
        Set rs = New ADODB.Recordset
        rs.Open _
            "SELECT * FROM tblSuperPuper ORDER BY sName", _
            cnn, adOpenDynamic, adLockOptimistic
        rs.AddNew Array("sName"), Array(NewData)
        rs.Update
        Set rs = Nothing
        Set cnn = Nothing
        Response = acDataErrAdded
    End Select
    
End Sub