Presumo che "Agenzie" sia il nome di una tabella, o almeno così spero, sennò non va.

in ogni caso, prendendo per buono che Agenzie sia il nome di una tabella, per settare un recordset devi dichiarare una variabile stringa:
codice:
Dim db As Database
Dim rs As Recordset
Dim strSql As String

strSql = "Select * from Agenzie"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSql)