Executer requête SQL en VBA

' Fonction de connexion à la base de données
Private Function f_dBConnect()

End Function

' Fonction qui exécute les requêtes SQL
Public Function f_ExecutReq()

End Function

' Fonction qui affiche les valeurs dans le formulaire
Public Function f_UpdateDate()

    ' Déclaration des variables
    Dim sReqEntreprise As String
    Dim sEntrepriseList As String
    
    ' Initialisation des variables
    sReqEntreprise = "SELECT DISTINCT artwork_supplier FROM Data WHERE import_date = (SELECT DISTINCT TOP 1 import_date FROM Data ORDER BY import_date DESC) ORDER BY artwork_supplier ASC"

    ' Se connecte à la base de donnée
    Call f_dBConnect
    
    ' Exécute la requête
    sEntrepriseList = f_ExecutReq(sReqEntreprise)

End Function