No me serviría, porque quiero sacar todos los ID de pieza, no solo 1, lo resolví insertando IdHistorico en la consulta también, quedó así:
Cita: SQL = "Select DISTINCT IdPieza, IdHistorico From HistoricoPesos Where Peso>=" & Replace(RS!De, ",", ".") & " And Peso<" & Replace(RS!A, ",", ".") & " Order By IdHistorico ASC"