Private Sub cboSourceCodeTable_NotInList( _
NewData As String, Response As Integer)
On Error Resume Next
Response = acDataErrContinue
If MsgBox("The source code '" & NewData _
& "' is not in the list." _
& vbLf & "Do you wish to add it?", _
vbYesNo) = vbYes Then
CurrentDb().Execute "insert into LeadSourceCode(Description) values ('" _
& NewData & "')"
Response = acDataErrAdded
End If
End Sub