Combobox et Requete SQL

[Rapheux]

Bonjour,

Dans un formulaire j'aimerais remplir une combobox à l'aide d'une requête SQL, je ne comprend pas pourquoi cela ne fonctionne pas. Si quelqu'un à une idée :

Private Sub UserForm_Initialize()
Dim Base As Database
Dim Rs As Recordset
Set Base = OpenDatabase(ActiveWorkbook.Path & "\Base.accdb")
Set Rs = Base.OpenRecordset("SELECT DISTINCT Source.Marque FROM Source")
Do While Not (Rs.EOF)
ComboBox1.AddItem Rs.Fields(0).Value
Rs.MoveNext
Loop
Rs.Close
Base.Close
End Sub

Message d'erreur :
Erreur d'exécution'-2147352571 (80020005)'
Le type ne correspond pas.

Je comprend pas trop où est l'erreur dans mon code.

Merci d'avance,
Rapheux