conn.Open
Dim Requete As ADOBRecordset
Set Requete = New ADOB.Recordset
Requete.Source = "select nom_champs from Nom table"
While Not Requete.EOF
Combo1.AddItem Requete("&Id_COM&")
Requete.MoveNext
Loop
End Sub
mais ça marche pas
merci d'avance
Cordialement