This is a response but does not use slices and quotes:
def select[A: Type](using quotes: Quotes)(productExpr: Expr[A], elemSymbol: quotes.reflect.Symbol): Expr[Any] = Select.unique(productExpr.asTerm, elemSymbol.name).asExpr