Hola tunait.
Creo que lo que sucede, es que hay un error prevío al que te esta marcando, es decir no se creo el recordset( sólo es una especulación).
Prueba lo siguiente, quita la línea:
De tu función :
CreaRecordSet(... ...)
Y seguramente saltará otro error (creo
), y nos comentas a ver que pasa.
Saludos!