Problema select distinct con order by

[gianni80]

Salve devo effettuare una select in una tabella prodotti utilizzando distinct e order by, vi posto il codice:

rsCategoria1.Source="SELECT distinct categorie FROM prodotti ORDER BY categorie desc"

ma alla pubblicazione mi da questo errore

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] L'apporto modifiche non è riuscito perché si è cercato di duplicare i valori nell'indice, nella chiave primaria o nella relazione. Modificare i dati nel campo o nei campi che contengono dati duplicati, rimuovere l'indice o ridefinire l'indice per consentire l'inserimento di voci duplicate, quindi ritentare l'operazione.

la riga di errore è quella dell'apertura del recordset. Come potrei risolvere? Grazie mille

[optime]

quell'errore non deriva certo da una SELECT! ma da una INSERT o da una UPDATE. controlla il codice

[gianni80]

ti posto tutto il codice, nella pagina non c'è nessuna operazione si inserimento nel db, ma solo una visualizzazione di record, appena tolgo l'order by funziona il tutto appena, lo metto mi quell'errore.

<%
dim cn
set cn =server.CreateObject("adodb.connection")
cn.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("mdb-database/cabine.mdb")
'-------------------------------------------------------------------------------------------------
dim rsCategoria1
set rsCategoria1=server.CreateObject("adodb.recordset" )
rsCategoria1.ActiveConnection=cn
rsCategoria1.Source="SELECT distinct categorie FROM prodotti ORDER BY categorie desc"
rsCategoria1.cursortype=1
rsCategoria1.cursorlocation=3
rsCategoria1.locktype=3
rsCategoria1.open()
%>