[Resolvido]Erro em Tempo de Execução 3049

Bom dia pessoal!

estou executando o código abaixo que insere registros de um txt para uma tabela vinculada no meu banco, porém ele aparece a mensagem de erro em tempo de execução, e ainda informa que : "Não é possivel abrir o banco de dados. Ele pode não ser um banco de dados que o seu aplicativo reconheça.

alguém pode me ajudar?

Function ImportaRel(caminho As String)

Dim db As Database
Dim rs As Recordset
Dim i As Integer
Dim lnTexto As String
Dim TRN As String
Dim DataRel As String

Close #1

Set db = CurrentDb()

Set rs = db.OpenRecordset("TB_INVENTARIO_D")

lnTexto = caminho & "\ARD163-0.txt"

Open lnTexto For Input As 1#

Do While Not EOF(1)

If Mid(lnTexto, 98, 9) = "FILE DATE" Then
DataRel = Mid(lnTexto, 108, 10)
End If

If Mid(lnTexto, 1, 3) = "000" Then
rs.AddNew

rs.Fields("DataRelatorio") = DataRel
rs.Fields("CONTA") = Right("000" & Mid(lnTexto, 1, 19), 19)
'RS.Fields("CONTA") = Mid(lnTexto, 1, 16) & "000"
rs.Fields("DataTA") = Mid(lnTexto, 23,
rs.Fields("DataCompra") = Mid(lnTexto, 33,
rs.Fields("Valor") = Mid(lnTexto, 49, 14)
rs.Fields("PT") = Mid(lnTexto, 65, 1)
rs.Fields("Plano") = Mid(lnTexto, 69, 5)
rs.Fields("Estabelecimento") = Mid(lnTexto, 75, 24)
rs.Fields("MCC") = Mid(lnTexto, 103, 4)
rs.Fields("DiasA") = Mid(lnTexto, 113, 3)

Line Input #1, lnTexto
rs.Fields("NumeroCartao") = Right("000" & Mid(lnTexto, 1, 19), 19)
rs.Fields("ReferenceNumber") = Mid(lnTexto, 23, 23)
rs.Fields("POS") = Mid(lnTexto, 52, 2)
rs.Fields("TXN") = Mid(lnTexto, 59, 3)
rs.Fields("Descricao") = Mid(lnTexto, 66, 36)
rs.Fields("B1") = Mid(lnTexto, 112, 1)
rs.Fields("BC") = Mid(lnTexto, 116, 1)
rs.Update
End If

Line Input #1, lnTexto
Loop

Close (1)

rs.Close

End Function

Não descobri o porque acontece o erro, mas quando eu compacto e reparo o banco onde esta a tabela vinculada, o código não apresenta erro!