Private Sub cboCustomer_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
		' Open the form to add the new customer.
		DoCmd.OpenForm "frmCustomers", , , , acFormAdd, acDialog, NewData
		If IsNull(DLookup("CustomerID", "tblCustomers", _
				"CompanyName = """ & NewData & """")) Then
			Response = acDataErrContinue
		Else
			Response = acDataErrAdded
		End If
	Else
		Response = acDataErrContinue
	End If
End Sub