Estou tentando gravar um arquivo txt na minha tabela mas cada linha do arquivo txt tem que ser em tabelas diferentes, ou seja, são duas tabelas a primeira linha na tab1 e a segunda linha na tab2 como devo fazer, alguém sabe me ajudar?

     Tabela1 = true 

     Open Vlocalorigem & "Nao_copiado.txt" For Output As #2
      Do While Not EOF(1)
        Line Input #1, ABC

        if Tabela1 = true then

           Tabela1 = false

            ... comandos

        else

            Tabela = True

            ... comandos

        end if  
      loop

Veja bem estou montando assim:

Private Sub Command1_Click()
Dim F As Long, Linha, Linha2 As String
Dim db As Database, rs As Recordset
F = FreeFile
Open Text1.Text For Input As F 'abre o arquivo texto
Set db = DBEngine(0).OpenDatabase(Text2.Text)    'abre o banco de dados
Set tb = bc.OpenRecordset("retncnb", dbOpenTable)
Do While Not EOF(F)

Line Input #F, Linha    'lê uma linha do arquivo texto
Line Input #F, Linha2 'lê uma linha do arquivo texto

'extrai a informação do arquivo texto usando a função MID
banco = Mid(Linha, 5, 3)
lote = Mid(Linha2, 5, 3)
tb.AddNew
tb.Fields("banco") = banco
tb.Fields("lote") = lote
tb.Update
Loop

MsgBox "Arquivo Texto Importado com Sucesso!!"
db.Close
tb.Close
Close #F
End Sub

e esta dando o seguinte erro "input Past end of file" nessa linha "Line Input #F, Linha2 'lê uma linha do arquivo texto"

O que eu devo fazer?

Por favor ninguem consegue me ajudar????