Muchas gracias, tenias razón, creo que es mas cencillo de lo que imaginaba, solo que tengo otro problema.
Tu pones For x = 0 To Data1.Recordset.AbsolutePosition - 1, ¿para qué es el -1?, si lo pongo así no me muestra nada, si pongo + 1, me muestra dos y si pongo + 2, me pone 3 registros, pero por ejemplo, si solo tengo dos registros en la tabla, y le pongo un + 5 por ejemplo, me marca error.
¿Cómo puedo hacer para mostrar todos los registros?
Gracias