problem: recuperer une valeur d'une requete

Bonjour je veux récuperer la valeur max d'un champs d'une table ( c'est un numérique non automatique) Je dois utiliser la requete select max(num).....
Comment dois je faire pour récuperer cette valeur dans une variable car les instructions entre ''' '''' ne passent pas. Merci

Dim Conn
dim connexion
connexion = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./database/etude.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connexion
%>
<%
Dim max
Set ADORecordset = Server.CreateObject("ADODB.Recordset")
ADORecordset.Open "SELECT MAX(IDsoc) FROM Adherents", Conn ,adOpenStatic ,adLockOptimistic, adCmdText
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
max = ADORecordset("IDsoc")
Response.Write(max)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ADORecordset.Close
Set ADORecordset = Nothing

en spécifiant le nom de ton champs :
ADORecordset.Open "SELECT MAX(IDsoc) AS MonMax FROM Adherents", Conn ,adOpenStatic ,adLockOptimistic, adCmdText

Ensuite :
max = ADORecordset("MonMax")
Response.Write(max)

F___


-------------------------------
Réponse au message :
-------------------------------

> Bonjour je veux récuperer la valeur max d'un champs d'une table ( c'est un numérique non automatique) Je dois utiliser la requete select max(num).....
> Comment dois je faire pour récuperer cette valeur dans une variable car les instructions entre ''' '''' ne passent pas. Merci
>
> Dim Conn
> dim connexion
> connexion = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./database/etude.mdb")
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open connexion
> %>
> <%
> Dim max
> Set ADORecordset = Server.CreateObject("ADODB.Recordset")
> ADORecordset.Open "SELECT MAX(IDsoc) FROM Adherents", Conn ,adOpenStatic ,adLockOptimistic, adCmdText
> ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> max = ADORecordset("IDsoc")
> Response.Write(max)
>
> ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>
> ADORecordset.Close
> Set ADORecordset = Nothing

merci