[Resolvido]Import CSV

Boa tarde, estou tentando importar um arquivo .CSV para meu banco de dados utilizando o codigo abaixo, porem nao estou conseguindo.
Podem me dizer o que estou fazendo de errado?
Desde ja agradeco.

Estou utilizando ele no evento "Ao clicar" de um botao.

Código:

    blnHasFieldNames = True
    strPath = (CurrentProject.Path & "\Input\Esteira\")
    strTable = "Relatorio_Problemas_BOQ"
    strFile = Dir(strPath & "Relatorio_Problemas.csv")

    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames

    strFile = Dir()
    Loop

Olá Gabriel,

Não falta exemplos no fórum, veja este:

https://www.maximoaccess.com/t26120-resolvidoimportar-csv-para-tabela

Não se esqueça da "Busca" do forum.

Abraço

Boa tarde, agradeço. mas não é isso que procuro.
Nao teria algum meio de importar sem ter que ler o arquivo?

Olá Gabriel,

Como assim, "Importar sem ter que ler o arquivo" ?
Vai ter que ler o arquivo para importar.
Explique melhor e se poder poste um ficheiro CSV com dados de amostragem.

Abraço

Bom dia amigo, desculpe pelo engano, erro de entendimento meu.
O exemplo passado atendeu perfeitamente a minha necessidade.
Muito obrigado pela ajuda!

Olá Gabriel,

Obrigado pelo retorno, o fórum agradece.

Abraço