[Uzerat]

اخي الكريم..

انت بحاجه إلى استخدام الامر for

كود :

On Error Resume Next: Err.Clear

SQLs = "select NFacture from sto where Fournisseur='" & Text1.Text & "'"

If cc.State = adStateOpen Then cc.Close
cc.Open SQLs, CN, adOpenDynamic, adLockOptimistic

   Set DataGrid1.DataSource = cc
for i=0 to cc.recoredcount -1  
Combo2.AddItem cc![NFacture]
cc.movenext
next