Visualizzazione a video di una select.

[spider81man]

Ciao a tutti,
ho creato una connessione a un db access con la seguente query:

"SELECT MAX(ID) FROM prenotazioni"
Questa è la connessione
<%
dim Conn
dim sql


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.jet.OLEDB.4.0"
Conn.Open Server.MapPath("DB/newsletters.mdb")

sql = "SELECT MAX(ID) FROM prenotazioni"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, , , adCmdTable
--> response.write rs(ID)
rs.Close()
Set rs = Nothing
Conn.Close()
Set Conn = Nothing
%>

L'unica cosa è che mi da errore a video.

ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/bingo/prenotazione.asp, line 124

Potete aiutarmi??
Grazie
spider81man