Prova in questo modo, spero di aver messo tutte le parentesi

codice:
rsRecordSet2.Open "SELECT [N° Disegno - Prefisso],[Locazione],First([Nome Prodotto])as [Nome Prodotto2] From [Struttura: Archivio] where [Locazione]='" & Replace(valore3, "'", "''") & "' group by [N° Disegno - Prefisso],[Locazione] ORDER BY IIf([N° Disegno - Prefisso] Is Null,0,Val(Mid([N° Disegno - Prefisso],2,Len([N° Disegno - Prefisso]))))
", Cn, adOpenStatic, adLockOptimistic
Ciao