[Resolvido]Após importação de arquivo txt, tabela fica vazia

Pessoal,

Tinha colocado uma mensagem na área de vba e ninguem respondeu. Eu estava querendo uma rotina para importar os dados de um arquivo txt. Acontece que os dados estão dispostos em linhas ou seja, cada registro corresponde a 7 linhas. depois de muito pesquisar, fiz a rotina que coloquei logo abaixo, aparentemente ela esta funcionando com um unico porem, a tabela fica vazia. eu recebo na tela, a mensagem de que a importação foi concluida, mas ele não está gravando os dados na tabela. Alguem saberia me dizer o que está errado?

Obrigado

Private Sub bt_imp_Click()
'Variaveis de campo
'Nome = vnome
'Tel = vtel
'Endereco = vender
'Bairro = vbairro
'Cidade = vcidade
'UF = vuf
'Cep = vcep

Dim linha As String
Dim db As Database
Dim rs As Recordset
Dim vnome, vtel, vender, vbairro, vcidade, vuf, vcep As String



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
vnome = Mid(linha, 1, 40)
Line Input #1, linha
vtel = Mid(linha, 1, 20)
Line Input #1, linha
vender = Mid(linha, 1, 50)
Line Input #1, linha
vbairro = Mid(linha, 1, 20)
Line Input #1, linha
vcidade = Mid(linha, 1, 15)
Line Input #1, linha
vuf = Mid(linha, 1, 2)
Line Input #1, linha
vcep = Mid(linha, 1, 10)

rs.AddNew

rs(0) = vnome
rs(1) = vtel
rs(2) = vender
rs(3) = vbairro
rs(4) = vcidade
rs(5) = vuf
rs(6) = vcep

Loop
Close #1
rs.Close
db.Close

MsgBox "Importação Concluída com Sucesso!!"
End Sub

Pessoal,

Descobri aqui, faltou eu colocar o rs.update. Agora ta funcionando a contento.

abs

Boa noite! Na onde vc adicionou o rs.update?? Estou com o mesmo problema...