Dim Db As ADODB.Connectionss
Dim myRs as ADODB.RecordSetss
Set Db = New ADODB.Connectionss
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=monFichier.mdb"ss
Set myRs = New ADODB.Recordsetss
myRs.Open "Select * from Quelquepart", Db, adOpenForwardOnly, adLockReadOnly, adCmdTextss
If Not myRs.EOF And Not myRs.BOF Thenss
ssssdo until myRs.eofss
ComboBox1.additem myRs![Champ] & ""ss
myRs.movenextss
ssssloopss
End ifss
myRs.closess
set myRs=nothingss
db.closess
set db=nothingss
Projet/référence ---> Microsoft Activex Data objets 2.1 Library