Recordset occurs as both DAO and ADO. You probably want DAO, use
Dim rs as DAO.Recordset
Also your SQL needs a semicolon to end:
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Employee;")
--
Regards,
Adrian Jansen
J & K MicroSystems
Microcomputer solutions for industrial control