Erreur 13 imcompatibilité de type Access 2016

Bonjour,

J'ai un problème d'erreur 13 imcompatibilité dans mon programme VBA dans access 2016. Je n'arrive pas à trouver la sour du problème. Le débluggeur m'indique que ça serait dans la zone en gras.

Option Compare Database

Private Sub liste_ref_Change()
Dim ligne As Recordset: Dim base As Database

Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT Designation, Quantite FROM Catalogue WHERE code_article='" & liste_ref.Value & "'", dbOpenDynaset)

End Sub

Merci en avance de votre aide !