Generar Excel a partir de datos de una BD Access

[gorka_arai]

Kaixo!!
La verdad que he aplicado a mi web los ejemplos que me aconsejabais y va todo de P.M !!! Al final usé la solución propuesta por mi vecinotrasgu y el kolegita metallik. Ahora tengo una duda. El siguiente código (es el que me indicó trasgu en su link) produce una excel con "x" lineas y 9 columnas. Lo que quiero hacer ahora para dejarlo más bonito es añadir títulos a las columnas. Lo estoy intentado pero no me sale. A ver si de nuevo me iluminais.

Código:

Do while Not rs.EOF
	FinLinea = ""
	For each x in rs.fields
		FinLinea = FinLinea & x.value & chr(9)
	Next
	Arch_Excel.writeline FinLinea
	rs.MoveNext
Loop

Aguuuur