Access.Application.CurrentDb is Nothing?

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM employees")

dim rs as dao.recordset
set rs = currentDb.openRecordset(your SELECT instruction,...)

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Employees")