Réponse acceptée !
Salut,
Essaye cela :
Set rs = New ADODB.Recordset
Rs.CursorLocation = adUseClientSql = "SELECT code from entreebout order by code asc"
rs.Open sql, cn,, adOpenDynamic, adLockPessimistic
msgbox rs.recordcount A+
Exploreur
Linux a un noyau, Windows un pépin 