Cita: y hacer un for pero lo hago de esta forma y me sale solo el ultimo dato
for a=0 to 6
Text2 = (RecSQL.Fields(a))
next
Te recorre pero siempre te va a mostrar el ultimo dato... Puedes crear una matriz de controles del Text y usas el for...
Código:
For i=0 to 6
text1(i).text = RecSQL.Fields(i)
next
Si quieres que se muestre todo en un solo Text:
Código:
For i=0 to 6
text1.text = text1.text & chr(10) + chr(13) & RecSQL.Fields(i)
next