[Resolvido]Importar dados de arquivo txt dispostos em linhas

Amigos,

Eu tenho um arquivo txt com varios registros, so que eles estão dispostos em linhas, ocupando cada um deles 7 linhas consecutivas por exemplo:

Gilberto B Varela
Tel: (84) 3211-39
Rua Quinho Chaves, 1556
Lagoa Nova
Natal
RN
59076-670
Granito Acessoria Contábil
Tel: (84) 3211-10
Avenida Bernardo Vieira, 3778 AN1
Lagoa Nova
Natal
RN
59051-005

Aqui no exemplo coloquei dois registros. O que eu quero, é importar essas informações para uma tabela no Access. Acontece que o Access so importa arquivo txt, se as informações estiverem em colunas, da forma como está não consegui. Eu ja criei uma tabela com 7 campos (Nome, Telefone, Endereço,Bairro, Cidade, Estado, CEP) Alguem tem um exemplo que me permita fazer essa importação? Algum script?

Grato

Estou tentando fazer aqui, mas esta dando erro, alguem poderia analisar meu codigo por favor. Criei no Access Uma tabela chamada de clientes, a estrutura dela se encontra no codigo. estou lendo cada linha do arquivo de texto, com o comando line input, não sei como fazer o comando ler a proxima linha, dai fiz dessa forma, so que quando eu clico no botão do formulario para que a importação seja feita, surge a seguinte mensagem de erro:

"a Expressão ao clicar que você inseriu como definição da propriedade de evento gerou o seguinte erro: Ocorreu um problema enquanto o Microsoft Office Access se comunicava com o servidor OLE ou com o controle Activex.
* Talvez a expressão não resulte no nome de uma macro, no nome de uma função definida pelo usuário ou em um [Procedimento de evento]
* Talvez tenha ocorrido um erro na avaliação da função, do evento ou da macro."


Private Sub Comando15_Click()
'Estrutura do banco de dados Access
'Nome (40)
'Tel (15)
'Endereco (50)
'Bairro (20)
'Cidade (15)
'UF (2)
'CEP (10)
'-----------------------------

Dim I As Integer
Dim linha(7) As String
Dim db As Database
Dim rs As Recordset

Open "Empresas.txt" For Input As #1
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Clientes", dbOpenTable)

Do While Not EOF(1)

Line Input #1, linha(1)
Nome = Mid(linha(1), 1, 40)
Line Input #1, linha(2)
Tel = Mid(linha(2), 1, 15)
Line Input #1, linha(3)
Endereco = Mid(linha(3), 1, 50)
Line Input #1, linha(4)
Bairro = Mid(linha(4), 1, 20)
Line Input #1, linha(5)
Cidade = Mid(linha(5), 1, 15)
Line Input #1, linha(6)
UF = Mid(linha(6), 1, 2)
Line Input #1, linha(7)
CEP = Mid(linha(7), 1, 10)

rs.AddNew

rs(0) = Nome
rs(1) = Tel
rs(2) = Endereco
rs(3) = Bairro
rs(4) = Cidade
rs(5) = UF
rs(6) = CEP

Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

Close #1

End Sub