Cita: la linea 45 es esta
resNoticias.Open sqlNoticias, Con,3,1
Se que no necesariamente el error puede estar ahí.
Pues si, el error esta exactamente ahí. Es ocasionado por que colocaste la instrucción Set resNoticias = Nothing dentro de un For (y anidado para colmo)
Nada como una "prueba de escritorio" para sacar estos errores.