[Resovido]Exportação para TXT altera a ordem das linhas

Boa noite a todos

Tenho uma consulta no meu banco de dados que preciso exportar para txt. Faço a exportação usando o assistente do Access (uso o critério de largura fixa), porém na maioria das vezes ele altera a ordem das linhas no arquivo de texto (quando abro o txt as ordem das linha é diferente da consulta). O arquivo de texto gerado é de configurações para outro programa, preciso que fique na ordem, além disso não posso fazer o acerto toda hora, tem momentos que o arquivo fica com mais de 100.000 linhas. Alguém tem alguma dica aí?

Avelino,
Bom dia

Essa exportação que faço através de uma consulta, deriva de uma tabela com chave primária. Nessa tabela possuo apenas duas colunas: Código (auto-numerar, chave primária) e Codigo_KML (texto). Pensei em utilizar o Codigo_KML como chave primária, mas existe uma linha que se duplica 1872 vezes sempre. No arquivo de texto trabalho apenas com a coluna Codigo_KML, se usar o campo da chave primária o arquivo também ficará desconfigurado. (off- toppic - uso o monta ribbons, é muito bom, parabéns)

Boa noite

Realmente a dica 53 resolveu, meu código ficou assim:

Código:

Dim conexao As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql as String
'-------------------------------------------------
'Conexão com banco de dados corrente, utilizando o ADO
'-------------------------------------------------
Set conexao = CurrentProject.Connection
'-------------------------------------------
'Monta consulta com os campos desejados
'-------------------------------------------
strSql = "SELECT Codigo, FROM KML ORDER BY Código;"
'-----------------------------
'Abre o Recordset da consulta
'-----------------------------
rs.Open strSql, conexao
'--------------------
'Cria o arquivo kml
'--------------------
Open "d:\Dados\MeuArquivo.kml" For Output As #1
    '-------------------------------------------
    'Copia todo o Recordset para o arquivo kml, alterei a extensão do arquivo de txt para kml (google earth)
    '-------------------------------------------
    Print #1, rs.GetString(adClipString, , "|", vbCrLf)
Close #1
'-----------
'Fecha tudo
'-----------
rs.Close
Set rs = Nothing
Set conexao = Nothing

Obrigado pelas dicas Avelino!