Presados Senhores

Bom dia !!!

 

Preciso de uma rotina para gerar um rquivo texto, porem preciso gerar o arquivo com dois campos na mesma linha e varias linhas. isso ate o fim do registro

 

 

EXEMPLO

    MINHA TABELA - NOME, ENDERECO, CIDADE, BAIRRO

   

    AGINALDO                             RUA A, N10

    JUIZ DE FORA                        SANTO ANTONIO

 

ALGUEM PODE ME AJUDAR   

    

 

Como vc vai separar os registros? Como vc vai saber qual que é o registro? Vai ter código ou algo assim?

nao vou preciar separar o resgistro, sera a tabela inteira

dim rs as new adodb.recordset

dim registro as string

set rs = new adodb.recordset

rs.open "select xxxx from...." , conn

open "C:\pasta\arquivo.txt" for output as #1

do while not rs.eof

   registro = rs.fields("Nome").value

   registro = registro & space(15 - len(rs.fields("Nome").value)))

   registro = registro & rs.fields("Endereco").value

   print #1, registro

   rs.movenext

loop

close #1

rs.close

 

algo parecido com isso