Como pasar datos de una tabla a un archivo

[azavala]

Tendrias que leer tabla y generar el archivo.txt como tu lo desees:

Dim Conexion as new adodb.connecction
dim registros as new adodb.recordset

conexion.open "DSN=nombre_de_datasource"

set registros.ativeconnection = conexion

registros.open "select campo1,campo2,campo3 from xxxxx where xxxx"

open "c:\archivo.txt" for append as #1

do while not registros.eof
print #1 registros(0) & "," & registros(1) & "," & registros(2)
registros.movenext
loop
registros.close
conexion.close