poner en variable el maximo de un campo (SQL)

Hola! Quiero que me guarde en una variable, el valor mas alto de un campo
autonumerico... a traves de la funcion MAX... porque me saca el siguiente
mensaje de error?

Tipo de error:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name
or ordinal.
/now.asp, line 21


Const adOpenKeyset = 1
Const adLockOptimistic = 3
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("\..\xxx\xxxx.sss")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
dim valor
cadena="Select max(ID) from Files"
rs.Open cadena, connStr, 3, 4

Response.Write("El mas alto es" & rs("ID"))
rs.Close
Set rs = Nothing %>