MI da un errore di non supporto

[Werwolfe]

Ho creato una pagina , di archivio delle news
ma mi rivela un errore alla riga 30:
RS.Open sql, conn, adOpenKeyset

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Il driver ODBC non supporta le proprietà richieste.
/archivio_news.asp, line 30

Il codice che ho usato è questo

Archivio News
<%
'numero di news per pagina
iPageSize = 15
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
if Request.QueryString("order") = "" Then
strOrder = "id"
Else
strOrderBy = Request.QueryString("order")
End If
'percorso databases
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/news.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RS = Server.CreateObject("ADODB.Recordset")
'fa la richiesta al database
sql = "SELECT * FROM News ORDER BY " & strOrderBy & " DESC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
If iPageCurrent >iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
'nessuna nuova news inserita , in questo caso viene visualizzato un messaggio che informa che niente è presente
If iPageCount = 0 Then
%><hr>

nessuna news presente
<hr>
<%
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
'se invece sono presenti news
%>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Do While iRecordsShown <iPageSize And Not RS.EOF
%>
<tr>
<td width="2%">&gt;</td>
<td width="98%">"><%=RS("Titolo")%>di
<%=RS("Autore")%> - <%=RS("Data")%></td>
</tr>
<%
'completa la visualizzazione dei titoli delle news e chiude la connessione al db
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%>
<center>
<%
'mostra il numero delle pagine in questo caso qui ci sono solo 15 news per pagina
For x=1 to iPageCount
%>
[<%=x%>]
<%
next

%>

Come posso risolvere il problema? grazie x le risposte

[Werwolfe]

scusate nessuno mi sa dire come risolvere questo problema di supporto che mi rileva alla riga 30?

RS.Open sql, Conn, adOpenKeyset