Thank you all for your suggestions. From some research, this is what I’ve come up with:
Public Function AugDefComp(dcjulff, fm) As Long
Dim xValue As Long
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select federal, deffcomp From [fy 2002 employees...