Ajuda de Macro para importar no Access

[vivicios]

Boa noite, galera

Gostaria de saber como posso fazer uma macro para importar para o Access atraves de um arquivo de texto (ele esta separado por tabulação).

Tentei usar o seguinte:

Option Compare Database

Private Sub Comando0_Click()

On Error GoTo Err_Comando0_Click

DoCmd.DeleteObject acTable, "Tabela1"

DoCmd.TransferText acImportDelim, , "Tabela1", "C:\Controle de PG\LOG 1 - P.txt", False

CurrentDb.TableDefs("Tabela1").Fields("F1").Name = "Agência CO"

CurrentDb.TableDefs("Tabela1").Fields("F2").Name = "Agência do depósito"

CurrentDb.TableDefs("Tabela1").Fields("F3").Name = "Máquina"

CurrentDb.TableDefs("Tabela1").Fields("F4").Name = "Data da COMP"

CurrentDb.TableDefs("Tabela1").Fields("F5").Name = "Data do depósito"

CurrentDb.TableDefs("Tabela1").Fields("F6").Name = "Nº do LOG"

CurrentDb.TableDefs("Tabela1").Fields("F7").Name = "Código do PG"

CurrentDb.TableDefs("Tabela1").Fields("F8").Name = "Data para COMP"

CurrentDb.TableDefs("Tabela1").Fields("F9").Name = "Código de barras do PG"

CurrentDb.TableDefs("Tabela1").Fields("F10").Name = "Código do titulo 1"

CurrentDb.TableDefs("Tabela1").Fields("F11").Name = "Banco do titulo"

CurrentDb.TableDefs("Tabela1").Fields("F12").Name = "Código do titulo 2"

CurrentDb.TableDefs("Tabela1").Fields("F13").Name = "Valor"

CurrentDb.TableDefs("Tabela1").Fields("F14").Name = "Codigo interno"

Exit_Comando0_Click:

Exit Sub

Err_Comando0_Click:

MsgBox Err.Description

Resume Exit_Comando0_Click

End Sub

mas na hora de importar ele importar tudo para o campo F1, gostaria de saber o que esta errado e como posso corrigir isso.

OBS: Não manjo nada de VBA esse comando vi em um site e tentei por em pratica, estou mandado um modelo do Access e do .TXT que pretendo tirar os dados.

http://rapidshare.com/files/128028382/Arquivos.rar.html

Agradeço desde ja a ajuda.