Ola. Estou tentando anexar via vb6 em tabela access 2003 um arquivo txt com o seguinte código:

Dim Remessa_CaixaEco As Recordset

Dim Remessa_Cartas As Recordset

Dim Banco As Database

Sub Anexa_Carta(Arquivo As String)

   Dim Reg_Atual As String

   Dim Num_Campo As String

   Dim Registro As String

   Dim Contador As Integer

   Dim NDemo As Integer

   Open Trim(Arquivo) For Input As #1

   Line Input #1, Registro

   Reg_Atual = Mid(Registro, 2, Len(Registro))

   Num_Campo = Mid(Registro, 1, 1)

   While Not EOF(1)

      Reg_Atual = Mid(Registro, 2, Len(Registro))

      Num_Campo = Mid(Registro, 1, 1)

      Select Case Num_Campo

         Case "1"

            Remessa_Cartas.AddNew

            Remessa_Cartas!EMPRESA = Mid(Reg_Atual, 1, 200)

            Remessa_Cartas!CLIENTE = Mid(Reg_Atual, 201, 45)

            Remessa_Cartas!DATAVENC = Mid(Reg_Atual, 246, 10)

         Case "2"

            If Len(Trim(Remessa_Cartas!NUMERO_CONTRATO)) > 1 Then

            Remessa_Cartas!NUMERO_CONTRATO = Remessa_Cartas!NUMERO_CONTRATO & Chr(13) & Chr(10) &  Trim(Mid(Reg_Atual, 86, 23))

            Else

            Remessa_Cartas!NUMERO_CONTRATO = Mid(Reg_Atual, 86, 23)

            End If

            If Len(Trim(Remessa_Cartas!NUMERO_DOCUMENTO)) > 1 Then

            Remessa_Cartas!NUMERO_DOCUMENTO = Remessa_Cartas!NUMERO_DOCUMENTO & Chr(13) & Chr(10)    & Trim(Mid(Reg_Atual, 109, 16))

            Else

            Remessa_Cartas!NUMERO_DOCUMENTO = Mid(Reg_Atual, 109, 16)

            End If

           On Error Resume Next

            Remessa_Cartas.Update

      End Select

      Line Input #1, Registro

   Wend

End Sub

O problema é que ele só anexa a primeira linha no Case “2” de cada registro ,  ignorando as demais linhas que fazem parte deste case no mesmo registro.

Gostaria de alguma ajuda para corrigir este problema. Obrigado

luiz