Salut voici les 2 methodes
1/ DLookup("[<champ_que tu rechecher>]", "[<table>]", "[<colonne dans la table>]=[<valeur>]")
colonne dans la table correspond au where d'un select
2/
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sel As String
Dim val As Variant
Set db = CurrentDb
sel = "select quelquechose as nb from table where machin"
<inscrit le code sql de ton select >
Set rs = db.OpenRecordset(sel, dbOpenDynaset)
val = rs!nb
val recupere la valeur retourné par ton select