Combobox Excel avec une colonne d'une table runtime access

Bonjour

je souhaite charger une combobox dans userform excel avec une colonne d'une table runtime Access

sur une machine sur la quel Access n'est pas installer

j' ai trouver ca

Const c_t_parm As String = "Prevision"
Dim ACapp As Access.Application, db As DAO.Database, rcontacts As DAO.Recordset
Set ACapp = New Access.Application
Set db = ACapp.DBEngine.OpenDatabase _
    ("C:\Users\xxxxx\Documents\Excel_Table\table.accdb", False, False, ";pwd=xxxx")
Set rcontacts = db.OpenRecordset(c_t_parm, dbOpenDynaset)
Do While Not rcontacts.EOF
    ComboBox1.AddItem rcontacts![Societes intervenantes]
    rcontacts.MoveNext
Loop
End Sub

Ca fonctionne très bien quant Access est installer mais pas avec le runtime Access

vous avez une solution pour venir au secoure d'un débutant merci