[Resolvido]Importar txt com duas linha para o mesmo registro

quero fazer o seguinte:

no meu txt casa registro tem a duas linhas, a linha1 e a linha2, quero que ao importar para o banco de dados as duas linas fiquem no mesmo registro.

se alguem puder me ajudar serei muito grato.
uso o access 2007

estou usando esse código
-----------------------------------

Option Compare Database

Private Sub Btnimportar_Click()
On Error GoTo TrataErro

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String


If Len(Me.txtNomeArq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.txtNomeArq.SetFocus
Exit Sub
End If
If Len(Dir(Me.txtNomeArq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.txtNomeArq.SetFocus
Exit Sub
End If

Open Me.txtNomeArq For Input As #1 ' Abre o arquivo a ser importado

Set DB = CurrentDb
Set RS = DB.OpenRecordset("tabela1")

While Not EOF(1)
Line Input #1, Linha ' Lê uma linha do arquivo texto
If Left$(Linha, 1) = "1" Then
With RS
.AddNew
!nome = Mid$(Linha, 2, 11)
!telefone = Mid$(Linha, 23, 12)
!bairro = Mid$(Linha, 31, 8)
.Update
End With
End If
If Left$(Linha, 1) = "2" Then
With RS
.AddNew
!endereço = Mid$(Linha, 2, 11)
!n = Mid$(Linha, 23, 12)
.Update
End With
End If
Wend

Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub

TrataErro:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then ' Compilação condicional - Em desenvolvimento
Stop
Resume
#End If
Resume Saida

End Sub
----------------------------------------------------------

algum amigo do forum pode dar uma olhanda pra mim, por favor...

algum amigo do forum pode dar uma olhanda pra mim, por favor...

Bom dia, washytonn
Pelo código que colocou, parece-me que tem as linhas 1,2,1,2,1,2...
Utilize
dim strNome as string,strTel as string,strBairro as string
strAImportar=""
While Not EOF(1)
Line Input #1, Linha ' Lê uma linha do arquivo texto
If Left$(Linha, 1) = "1" Then
strnome = Mid$(Linha, 2, 11)
strtel = Mid$(Linha, 23, 12)
strbairro = Mid$(Linha, 31,
ElseIf Left$(Linha, 1) = "2" Then
With RS
.AddNew
!nome =strnome
!telefone = strtel
!bairro = strbairro
!n = Mid$(Linha, 23, 12)
.Update
End With
End If
Wend

Alexandre Neves, valeu cara, deu certissimo, cara faz tempo que procuro esse código, faz muito tempo mesmo... quando achei o que postei era metade do caminho, mas o que você me mandou é perfeito.

valeu mesmo...

EU AMO ESSE FORUM...