[Resolvido]Não consigo gerar um arquivo TXT

Amigos,

Criei um formulário e adicionei a ele um botão que ao ser clicado, deveria gerar o registro corrente num arquivo texto (txt). No evento ao clicar do botão, coloquei:

Código:

Private Sub Comando38_Click()
Set conn = server.CreateObject("adodb.connection")

'Caminho Banco de Dados
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("Acervo.mdb")
Set rs = server.CreateObject("adodb.recordset")

'Selecionando a tabela com os campos
rs.Open "select * from Acervo", conn, 3, 3
Set objFSO = server.CreateObject("Scripting.FileSystemObject")

'Caminho e nome do arquivo que vai ser criado
Set arquivo = objFSO.CreateTextFile(server.mappath("Template.txt"), True)
'Do Until rs.EOF

'Campos que vão ser gerados dentro do arquivo texto
arquivo.Writeln (rs("titulo Original"))
arquivo.Writeln (rs("Titulo Brasil"))
arquivo.Writeln (rs("Genero"))
arquivo.Writeln (rs("Qualidade"))
arquivo.Writeln (rs("Ano Producao"))
arquivo.Writeln (rs("Audio"))

'rs.MoveNext
'Loop
arquivo.Close
End Sub

Acontece que ao clicar no botão, recebo a seguinte mensagem de erro:

"erro em tempo de execução '424'
o objeto é obrigatório

quando clico em depurar, ele me mostra a linha abaixo em destaque

Código:

Set conn = server.CreateObject("adodb.connection")

Pensei que poderia ser um problema por não ter adicionado a biblioteca DAO 3.6, dai fui em Ferramentas->referencias e cliquei em Microsoft DAO 3.6 Object Library, depois cliquei OK e recebi outro erro:

"Erro ao carregar DLL"

Fui na pasta onde se encontra a dll e registrei-a com o regsvr32, mas não adiantou, continua dando o mesmo erro.

Alguem saberia o que pode estar acontecendo?

Grato

Veja um exemplo simples:

Código:

Dim N As Integer, rst As Recordset

N = FreeFile
Set rst = CurrentDb.OpenRecordset("SELECT * FROM cnsRanking ORDER by Colocação DESC")

Open Caminho For Output As #N
        Print #N, rst!Nome
Close #N

Set rst = Nothing

Olá Criquio,

Obrigado pela ajuda, mas continuo tendo o mesmo problema, coloquei o seu código como descrito abaixo:

Private Sub Comando38_Click()

Dim N As Integer, rst As Recordset
N = FreeFile
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Acervo")
Open arqtxt.txt For Output As #N
        Print #N, rst![titulo Original]
Close #N
Set rst = Nothing
End Sub

Ele dá o mesmo erro e aponta para linha:
Open arqtxt.txt For Output As #N

Tentei instalar o Microsoft DAO 3.6 Object Library e recebi a seguinte mensagem de erro:
"Nome em conflito com um modulo, projeto ou biblioteca de objetos já existente"

Não entendi o porque do erro, já que eu não tenho Módulo, projeto ou biblioteca de objetos com nome conflitante. Tô encucado pra caramba com isso, pois agora isso está acontecendo com o PC de casa, antes era com o PC da minha empresa...enfim, tô achando que o meu MS Officce 2010 ta bugado sei lá.

Você precisa passar o caminho completo do txt. Crie uma variável para armazenar o caminho com o nome do arquivo e coloque essa variável no lugar do nome do arquivo:

Código:

Dim N As Integer, rst As Recordset, cArq As String
cArq = "C:\arqtxt.txt"
...

Agora deu certo!
Valeu Criquio. Obrigado mais uma vez pela ajuda.

Um grande abraço

Grato pelo retorno. O fórum agradece.