optimiser code

Bonjour,
j'ai tappé ce code :
sql = "SELECT COD_ETAB, Centre_Examen FROM CandNeufNC order by COD_ETAB"
rs.Open sql, CnNeuvieme, adOpenStatic, adLockOptimistic
nb = rs.RecordCount
Me.ProgressBar1.Min = 0
ProgressBar1.Max = nb
For i = 1 To nb
ecole = rs("COD_ETAB")
ProgressBar1.Value = i
sql2 = "SELECT  CentreExamen FROM CentreEcole where ecole='" & ecole & "'"
rs2.Open sql2, CnNeuvieme, adOpenStatic, adLockOptimistic
rs2.Close
Next i

rs.Close


Mais  au moment de l'execution ça prend beaucoup du temp

ben déjà, à quoi te sert ta deuxième requête (rs2) vu que tu t'en sers pas ???

De plus, pour ce genre de manipulation, rien ne vaut une jointure pour accèlérer les choses :
sql = "SELECT COD_ETAB, CentreEcole.Centre_Examen FROM CandNeufNC INNER JOIN CentreExamen ON CentreExamen.ecole = CandNeufNC.ecole order by COD_ETAB"