Private Sub cboCity_NotInList(NewData As String, Response As Integer)
	If MsgBox("Do you want to add " & NewData & " to the list of cities?", _
			vbYesNo, "New city?") = vbYes Then
		DoCmd.RunSQL "INSERT INTO tblCities(City) VALUES ('" & NewData & "')"
		Response = acDataErrAdded
	Else
		Response = acDataErrContinue
	End If
End Sub