Private Sub cboCustomers_NotInList(NewData As String, Response As Integer)
	If MsgBox("That customer is not in the list." & _
			"Would you like to add a new customer?", vbYesNo) = vbYes Then
		'User said yes, so add the new customer here...
		Response = acDataErrAdded
	Else
		Response = acDataErrContinue
	End If 
End Sub