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)