Importar Vários arquivos txt para uma tabela

[RICARDO BARBOSA machado]

Sou novo no VB e estou tentando utilizar um código retirado de um forum e não estou conseguindo fazer com que funcione para a minha necessidade. Quero realizar uma importação de vários arquivos txt de uma pasta para o meu banco de dados. Utilizei um código, mas não está funcionando. Os dados são os seguintes: nome da tabela: "BASE TOTAL"; endereço onde se encontram os arquivos a serem importados: "F:\PROGRAMA INFORMATIVO"; especificação criada para a importação: "informativo base total";

Código que estou utilizando e não está dando certo:

Private Sub Comando3_Click()
Dim strArquivo As String, SQL As String, strTable As String
Dim numCount As Integer

On Error GoTo Err_Import

With Form_ifrmExplorer 'ifrmExplorer: formulário utilizado

If Not IsNull(.txtDir) Then 'txtDir: TextBox onde será informado o diretório dos arquivos

DoCmd.Hourglass True 'Ampulheta

'Declaração do diretório dos arquivos
strArquivo = Dir(.txtDir & "\*.txt") 'Listagem apenas de arquivos .txt

'Atribuição do nome da tabela de destino
strTable = "BASE TOTAL"

'Copia os nomes dos arquivos do diretório
Do Until strArquivo = "F:\PROGRAMA INFORMATIVO"
.lstArquivo.AddItem strArquivo 'Inclui os nomes dos arquivos txt à variável
DoCmd.TransferText acImportDelim, "informativo base total", strTable, strArquivo, False 'Rotina para importar os arquivos txt
strArquivo = Dir 'Atribuição do próximo .txt
Loop
.txtDir = Null 'Limpa as caixa de texto

'Finalização do processo
MsgBox "Processo finalizado com sucesso!", vbInformation, "iMasters - Access"
DoCmd.Hourglass False 'Ampulheta

Else

'Solicitação de preenchimento do campo txtDir
MsgBox "Informe o folder onde se encontram os arquivos!", vbCritical, "iMasters - Access"

End If

End With


Exit_Import:
Exit Sub

Err_Import:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "iMasters - Access"
DoCmd.Hourglass False 'Ampulheta

Resume Exit_Import

End Sub