Comment récupérer en VB6 la max d'une table:
voila ce que je fais
Dim cnx As New ADODB.Connection
Dim Rst As New ADODB.Recordset
cnx.ConnectionString = "Provider=SQLOLEDB.1;......etc
cnx.Open
Rst.Open "fournisseur_fou", cnx, , adLockOptimistic
req = "select MAX(id_fou) from fournisseur_fou"
cnx.Execute req
MsgBox ("Max : " & Rst!id_fou)
il m'affiche 1 alors que c'est 16