Access - Consulta definida error en basic

Dim dbs As DAO.Database
Dim parteshoras As DAO.Recordset

Set dbs = CurrentDb
Set parteshoras = dbs.OpenRecordset("hor_detCons")

La consulta hor_detCons me abre perfecta en access, pero cuando intento ejecutarla en un modulo me da error 3061 pocos parametros en openrecordset.

Las lineas estan copiadas de la ayuda de access 2007

Gracias por vuestra ayuda

No estoy seguro pero creo que el problema está en la biblioteca de referencias, si no logras activar la que le falta puedes declarar la variable parteshoras como Object .