Ai meu Deus... Olha, vou te ajudar faz isso:

 

Dim linha As String
Dim RazaoSocial, Competencia, TipoCaptacao, ValorDevido, Producao, TotNotasFiscais As String
Dim PegaTipoCapta, PegaValorDevido As Boolean

Open "C:complexo.txt" For Input As #1
Do While Not EOF(1)

   Line Input #1, linha
   If PegaTipoCapta Then
      TipoCaptacao = Mid(linha, 61)
      PegaTipoCapta = False
   End If
   If PegaValorDevido Then
      ValorDevido = Mid(linha, 5, 22)
      Producao = Mid(linha, 57, 22)
      PegaValorDevido = False
   End If
   If UCase(Mid(linha, 1, 5)) = "RAZÃO" Then
      RazaoSocial = Mid(linha, 28)
   ElseIf UCase(Mid(linha, 1, 5)) = "COMPE" Then
      Competencia = Mid(linha, 28)
   ElseIf UCase(Mid(linha, 48, 5)) = "TIPO " Then
      PegaTipoCapta = True
   ElseIf UCase(Mid(linha, 5, 5)) = "VALOR" Then
      PegaValorDevido = True
   ElseIf UCase(Mid(linha, 1, 5)) = "TOT N" Then
      TotNotasFiscais = Mid(linha, 19)
   End If
   If TotNotasFiscais <> "" Then
      'Inserir dados no banco e zerar todas as variáveis aqui
     
   End If
Loop

close #1

Valeu, galera,

 

descobri o problema por acaso,

 

deveria abrir e fechar o recordset pelo dao no load e fechar no unload do form. Funcionou, mas não entendi nada...

 

o importante é que funcionou e os erros desapareceram...