Combobox et requete

Bonjour,


je souhaite remplir ma combox avec une requête, je cherche depuis un moment mais toutes les méthodes que j'ai trouvé ne fonctionne pas, je viens donc demander un peu d'aide.
Voici ou j'en suis:

Private Sub UserForm_Initialize()
'--Connection à la base de données
Dim Connect As New ADODB.Connection
Set Connect = New ADODB.Connection
Connect.Open ("DRIVER={Microsoft ODBC for Oracle};UID=xxx;PWD=xxx;SERVER=xx;")

Dim Result As ADODB.Recordset

Dim iCount, iRecCount As Integer
Dim RecTmp As Recordset
Dim SQL As String

SQL = "SELECT CD_SUPPLIER,TXT_QUOTEFIELD FROM SUPPLIER"
'Set RecTmp = MyDatabase.OpenRecordset(SQL)

RecTmp.Open SQL, Connect, adOpenStatic

RecTmp.MoveLast
iRecCount = RecTmp.RecordCount
RecTmp.MoveFirst

For iCount = 1 To iRecCount
zl_1.AddItem RecTmp!MonChamp
RecTmp.MoveNext

Next

RecTmp.Close
Set RecTmp = Nothing

End sub

y a t-il une fonction qui fonctionne svp ?


Merci !!!