Si jamais j'ai trouver pour lire l'entête :
Set Conn = Server.CreateObject("ADODB.Connection" )
Set FieldsRs = Server.CreateObject("ADODB.Recordset" )
' Récupération des noms de champs
SQL = "Select * from MaTable where 1=2"
fieldsrs.Open SQL, Conn, 0, 1
For j = 0 to fieldsrs.Fields.count-1
' Remplissage de la liste
Response.Write fieldsrs.Fields(j).Name & vbcrlf
Next
fieldsrs.Close
Conn.Close
Set Conn = Nothing