Eu apenas tento importar um arquivo .csv com vba. Eu uso o método DoCmd.TransferText com especificações personalizadas. Tentei importar o arquivo com o assistente, com as mesmas especificações e funciona perfeitamente bem.

Mas quando inicio o vba, recebo esta mensagem de erro:

Desculpe, está em alemão, mas acho que se pode ler o essencial

Aqui está a parte do meu código, onde eu chamo o método:

Public Function ImportFileToTable(params As ImportFileToTableParams) As ImportFileToTableResult
    'TODO: Import a CSV File into the selected table
    Dim result As New ImportFileToTableResult

    On Error GoTo ImportFail
    DoCmd.TransferText acImportDelim, params.SpecificationName, params.TableName, params.FileName, params.HasFieldNames

    result.Success = True
    Set ImportFileToTable = result
    Exit Function

ImportFail:
    result.Success = False
    result.ErrorMessage = "There was an error importing the File"
    Set ImportFileToTable = result
End Function

Meu banco de dados está em uma unidade de rede, mas tentei copiá-lo em minha unidade local e ele teve o mesmo resultado. Eu também experimentei o local do arquivo.

O software que estou usando é: -Microsoft Access 2013

Obrigado a todos em adnvance :)