[VBA] Assegnare una variabile tramite un istruzione SQL

[chorro]

Buongiorno a tutti,
è possibile in VBA assegnare una variabile tramite l'esecuzione di una query di selezione o solo tramite il Dlookup?

SELECT Contratti.IDContratto, Contratti.DataFine
FROM Contratti
WHERE (((Contratti.IDContratto)=3));

Se sì, come?
Se la query dà più valori viene selezionato il primo?