Access - Eooro de tipo.URGENTE

Function GENE() As Variant
Dim db As Database
Dim MITA As Recordset, ta As Recordset, MITAble As Recordset
Set db = CurrentDb()
Set ta = db.OpenRecordset("traentra", dbOpenDynaset)--------------
Set MITAble = db.OpenRecordset("auxtra")
Set MITA = db.OpenRecordset("PRODUCTOS")
este es mi codigo al compilar no me da error, al ejecutarlo desde una macro me da error de tipo en la linea ---------.¿Que tengo mal?

alguien me sabe recomendar un manual de experto para access en el que se inclulla el tema de la seguridad y de muesr de menus