Buenas. Esa solución ya lo probé y no me funcionó. De hecho cuando pongo el 0 en vez del uno, debo reducir el número de registros. Ejemplo, si digo Registros=6 puedo poner el 1 , si pongo Registros=0 tengo que poner Registros=5. El caso es que hay 7 Registros, y si pongo el 7 me da error de EOF igual a True
Sobre la segunda solución, no hay forma de que me funcione la base de datos, puesto que me dice que el elemento está cerrado.
Cita:
Iniciado por Adler 
Hola
Es extraño que diga que el primero si te sirvió y el segundo no, cuando ambos hacen exactamente lo mismo, solo que el segundo es mucho mas compacto y entendible.
Para que te recoja el primer registro solo has de cambiar esta linea
For a = 1 to CInt(Registros)
por
For a = 0 to CInt(Registros)
Suerte