Visual Basic - Añadir Registros a un .TXT desde consulta SQL

Saludos,

Tengo un programa que hace una consulta SQL a una base de datos de un AS400 ( base de datos muy simple, CAMPOA, CAMPOB ), desearía acceder a esta base de datos ( en esto no tengo problema ) y leer todos los registros para añadirlos a un fichero TXT con la particularidad que desearia cada registro en columnas :

Regsitro 1 : CAMPOA CAMPOB
Registro 2 : CAMPOA CAMPOB
Registro 3 : CAMPOA CAMPOB
.
.
.
.
.
.

¿ Puede alguien aydarme .... ?

Los datos de los campos son alfabeticos, numericos ..... etc

Con que trabajas ADO, DAO, RDO .....

Te puedo indicar una forma de hacerlo pero nunca te quedaran encolumnados perfectamente

dim resultado as string
dim recordset as ADODB.Recordset

resultado=vbullstring

sSql = " SELECT campoa, campob FROM ........ WHERE ......"

set recordset = Conexion.Execute(sSql) donde Conexion es la conexion a la base de datos

Do Until recordset.Eof
if resultado <> vbnullstring then
resultado = resultado & VbCrLF
endif

resultado = resultado & campoa & Space(10) & campoB

recordset.movenext
loop

recordset.close
Set recordset = Nothing

Puedes sutituir el Space(10) por uno o vario saltos de tabulador (No INtro)