Exécuter une requête SQL avec VBA et remplir la feuille de données

Très nouveau dans toute forme de code. Tenter d'exécuter un script dans VBA qui extraira des données d'une base de données access à l'aide de SQL et les placera dans une feuille de calcul Excel. Le code est similaire à ci-dessous. Fonctionne propre mais je ne sais pas comment utiliser les données qu'il tire. Merci d'avance.

Sub Get_Data()
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL, strInput As String

strFile = "S:Location.Database.accdb"

strCon = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFile

Set cn = CreateObject("ADODB.Connection")
cn.Open strCon

strInput = InputBox("Input Desired Name")

strSQL = "SELECT NAME, Location WHERE NAME =""'strInput'"";"

cn.Execute strSQL

cn.Close
Set cn = Nothing

End Sub
demandé sur