Complemento em codigo

Boa tarde.
Preciso de uma ajuda ref. a esse comando abaixo que lê um arquivo txt e puxa as informações para dentro das minhas tabelas.

Código:

Dim f As Long
Dim k
Dim strlinha
Dim strSQL$
f = FreeFile
Open CurrentProject.Path & "\ArquivoTxt\arquivotxt" For Input As f
Do While Not EOF(f)
    Line Input #f, strlinha
    If Len(strlinha & "") > 0 Then
        k = Split(strlinha, "|")
        Select Case k(1)
Case "I0330"
                strSQL = "INSERT INTO TBL_I0330 (campo1,campo2,campo3,campo4,campo5,campo6,campo7) "
                strSQL = strSQL & "VALUES ('" & k(1) & "','" & k(2) & "','" & k(3) & "','" & k(4) & "','" & k(5) & "','" & k(6) & "','" & k(7)  & "');"
                CurrentDb.Execute strSQL$
Case "I0551"
                strSQL = "INSERT INTO TBL_I0551 (campo1,campo2,campo3,) "
                strSQL = strSQL & "VALUES ('" & k(1) & "','" & k(2) & "','" & k(3)  & "');"
                CurrentDb.Execute strSQL$
    End Select
    End If
Loop
End Sub


Então ficando assim:

TbL_I0330
Campo1(I0330), Campo2(01), Campo3(A), Campo4(5), Campo5(13), Campo6(4), Campo7(econômico)

Tbl_I0551
Campo1(I0551), Campo2(10), Campo3(1.01.01.01.00)

Gostaria que ficasse assim

Quando ele identificasse o Campo3(A) da Tbl_I0330 puxaria também da Tbl_I0330 o campo5(13) para a Tbl_I0551 em um novo campo.

Então ficando a tabela Tbl_0551 com mais um campo:
Campo1(I0551), Campo2(10), Campo3(1.01.01.01.00), Novo Campo4(13)

Não sei se e possível, mais agradeço se puderem me ajudar.

Esse é o Arquivo TXT
|I0330|01|A|5|13|4|ECONOMICO|
|I0551|10||1.01.01.01.00|

|I0330|01|A|5|8|7|BRASIL|
|I0551|10||1.07.14.25.00|

|I0330|01|A|5|9|7|FEDERAL|
|I0551|10||1.02.05.04.00|

Fala rapaz, então meio confuso isso que você quer fazer hein, mas vamos lá.

Você quer que quando exista valor no Campo3 (qualquer valor ou o valor A em específico?) da tabela Tbl_I0330 ele insira o valor do Campo5 na outra tabela né? Mas na próxima linha de registro da tabela Tbl_I0551, correto?
Porque se você analisar bem, quando ele encontra o valor no campo3 ele ainda está varrendo os valores da tabela 330, então não tem como complementar a inserção na outra tabela na situação atual.

Tente explicar um pouco melhor se possível.


Flw...