[Resolvido]Abrir tabela em BackAnd Via recordset para fazer Update

Amigos tenho um código que prepara uma tabela com nome de arquivos no HD
Funcionava quando a tabela era vinculada.. como estou desvinculando o front estou adaptando..

mas na linha em vermelho dá tabela não encontrada.. so que esta la..

Private Sub PreparaPDF()
Parametros_de_Inicializacao "SysPen.par"
Dim fso, Directorio As String, Pasta, Ficheiro
Dim Rst As Recordset
Dim NomeBD_Local As String
Dim strPathLocal As String
Dim dbBancoLocal As Database

NomeBD_Local = "SYSPEN_be_Local.accdb"

'String com path para conexão com a base de dados.
strPathLocal = DirBancoDadosLocal & NomeBD_Local ' Conecta ao banco de dados local
Set dbBancoLocal = OpenDatabase(strPathLocal)


Directorio = DirRelatorios
MsgBox Directorio
Set fso = CreateObject("Scripting.FileSystemObject")
dbs.Execute "delete from PDF IN '" & strPathLocal & "'"
Set Rst = dbs.OpenRecordset("PDF IN '" & strPathLocal & "'")
Set Pasta = fso.GetFolder(Directorio)
For Each Ficheiro In Pasta.Files
If Ficheiro Like "*.pdf" Then
Rst.AddNew
Rst!IDPDF = Directorio & Ficheiro.Name
Rst!DataCriacao = Format(Ficheiro.DateCreated, "dd-mm-yyyy")
Rst.Update
End If
Next
Me!lstPDF.Requery
If Me!lstPDF.ListCount = 0 Then
End If

Set fso = Nothing: Set Pasta = Nothing
End Sub

Se puderem me ajudar..

Fico grato

Resolvi Assim:

Private Sub PreparaPDF()
Parametros_de_Inicializacao "SysPen.par"
Dim fso, Directorio As String, Pasta, Ficheiro
Dim Rst As Recordset
Dim NomeBD_Local As String
Dim strPathLocal As String
Dim dbBancoLocal As Database

NomeBD_Local = "SYSPEN_be_Local.accdb"

'String com path para conexão com a base de dados.
strPathLocal = DirBancoDadosLocal & NomeBD_Local ' Conecta ao banco de dados local
Set dbBancoLocal = OpenDatabase(strPathLocal)


Directorio = DirRelatorios
MsgBox Directorio
Set fso = CreateObject("Scripting.FileSystemObject")
dbBancoLocal.Execute "delete from PDF IN '" & strPathLocal & "'" 'Modifiquei a variável do BD para o local correto
Set Rst = dbBancoLocal.OpenRecordset("PDF")
Set Pasta = fso.GetFolder(Directorio)
For Each Ficheiro In Pasta.Files
If Ficheiro Like "*.pdf" Then
Rst.AddNew
Rst!IDPDF = Directorio & Ficheiro.Name
Rst!DataCriacao = Format(Ficheiro.DateCreated, "dd-mm-yyyy")
Rst.Update
End If
Next
Me!lstPDF.Requery
If Me!lstPDF.ListCount = 0 Then
End If

Set fso = Nothing: Set Pasta = Nothing
End Sub

Saudações