[Resolvido]Encerrando conexão após fazer update em SQL

Amigos preciso assim que executar esta expressão, desconectar o banco...
Mas não estou conseguindo..

Se puderem ajudar.. fico grato


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

Set fso = CreateObject("Scripting.FileSystemObject")
dbBancoLocal.Execute "delete from PDF IN '" & strPathLocal & "'"
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

Set dbBancoLocal = Nothing
dbBancoLocal.Close
Set Rst = Nothing

End Sub

Você primeiro tem de fechar o Recordset que abriu, depois tem limpá-lo da memoria e só depois o mesmo para o banco externo;


Rst.Close
Set Rst = Nothing
dbBancoLocal.Close
Set dbBancoLocal = Nothing

Bom dia João Paulo.. Apliquei.. mas ainda continua conectado ao abrir o form...

O problema é que preciso usar a tabela PDF para filtrar uma lstBox através do Mes de uma combo, mas como está conectado pra tabela PDF, não o permite

São dois códigos que usam a conexão este que esta ai acima e este..


'Carrega a LstBox's usadas no Form (BD Local)
Private Sub CarregaLst()
Parametros_de_Inicializacao "SysPen.par"
Dim StrlstPDF As String
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)


'listBox lstRelatorioDetento
StrlstPDF = "SELECT PDF.id, PDF.idPDF, Format([dataCriacao],'yyyy') AS Ano, Format([dataCriacao],'mmmm') AS Mês, PDF.selecionado " _
& " From PDF IN '" & strPathLocal & "'" _
& " WHERE (((Format([dataCriacao ],'yyyy'))=[Formulários]![VerPDF]![cboAno]) AND ((Format([dataCriacao ],'mmmm'))=[Formulários]![VerPDF]![cboMes]));"

Me.lstPDF.RowSource = StrlstPDF
Me![lstPDF].ColumnCount = 5
Me![lstPDF].ColumnWidths = "0cm; 7,5cm; 0cm; 0cm; 0cm"


'Encerra a conexão
dbBancoLocal.Close
Set dbBancoLocal = Nothing

End Sub

Um desses dois esta deixando o banco conectado..

Como resolver?

Bem como não estou conseguindo usa a tabela PDF porque a mesma está conectada..
Criei uma Segunda tabela PDF_Final

onde ao abrir o form faço um Insert Into na mesma, relacionando os seus registros com a tabela PDF...
Assim ao abrir o form e limpar a tabela PDF tambem é limpa a tabela PDF_Final..

Ficando assim as duas sempre sincronizadas com os mesmos registros.. dessa forma posso usar a tabela PDF_Final para os demais usos no form, pois a mesma sempre conterá os mesmo registros da tabela de origem PDF

Grato JP