Erro fatal, vba trava o access

Boas pessoal,

Bom na verdade não sei bem se este seria o local mais adequado para postar esta duvida, afinal o que espero seria mais um bate-papo a
uma resposta concreta, enfatizando que a desejo. XD

Com o auxilio dos mestres, pude "adaptar" um código, ao qual deixo abaixo alguns pontos, para gerar arquivos .txt

Código:


Dim iArq As Long            'Este é o texto a ser escrito

'CRIA O ARQUIVO
    iArq = FreeFile
    Open CurrentProject.Path & "\Orçamentos\" & ConvertAccent(Me.Orcado) & "\Orçamento - " & Day(Date)& " de " & MonthName(Month(Date)) & " de " & (Year(Date)) & ".txt" For Output As iArq
       
'ESCREVE O SEGUINTE:

    Print #iArq, " "
    Print #iArq, "São Paulo,"; Day(Date); "de "; MonthName(Month(Date)); " de"; (Year(Date));


A questão é que o código tem vontade, funciona quando quer. O arquivo sempre é criado a questão é o conteúdo dele.
Os erros geralmente aparecem na primeira linha (Print #iArq, " "), mas além de funcionar quando quer ainda me trava o access quando não funciona. XD
Se alguém já teve algum problema parecido com este tipo de código, similar ou qualquer um mesmo que após um comando trava o access e já o tenha resolvido independente da situação se puder aconselhar
Agradeço.

Será que o erro está acontecendo porque você não está fechando o arquivo?


tente adicionar na última linha do seu código

Código:

Close #Arq

abraços

Esta sim sendo fechado.
É como falei funciona quando quer, não é falta de dados ou erro no vba creio eu por funcionar as vezes e
por isto acho o caso estranho pela falta de informações do access no acontecimento do erro.