VB6 - DB Access che sembra chiuso, ma probabilmente non lo è

[Rickycast]

La Sub qui sotto chiama la Function "StampaOrdiniPDF()" che converte un Report di Access in PDF

  'Stampa File in PDF e archiviazione nella Cartella "C:\File_VB6\Ordini\"
            NomeReport = "OrdineCli"
            NomeFilePDF = CdCl & "_" & CStr(Format(Now(), "ddmmyy" & "hmm"))
            Percorso = "Path del DB"
            Dummy= -1
            Dummy= StampaOrdiniPDF()

NomeReport, NomeFilePDF e Percorso sono variabili dichiarate in un Modulo a parte.

 Function StampaConfermeOrdinePDF()
On Error GoTo Errore_ConfermeOrdinePDF
    Dim msAccess As Access.Application
    Dim blRet As Boolean
    
    Set msAccess = New Access.Application
    msAccess.OpenCurrentDatabase filepath:=Percorso
    blRet = ConvertReportToPDF(NomeReport, vbNullString, Application.CurrentProject.path & "\ConfermeOrdine\" & NomeFilePDF & ".pdf", False, False, 150, "", "", 0, 0, 0)
    blRet = False
    msAccess.CloseCurrentDatabase
    Set msAccess = Nothing
    
    Exit Function
Errore_ConfermeOrdinePDF:
        MsgBox "C'è un errore nella Funzione ''StampaConfermeOrdinePDF''" & Err.Number & " - " & Err.Description
End Function

Se chiamo due volte di seguito la Function (ovviamente cambiando il valore delle Variabili) ottengo l'errore "Metodo 'Path' dell'oggetto '_CurrentProject' non riuscito" e la funzione non viene eseguita. Ho anche provato a scrivere due distinte Function con nomi diversi e a farle esaguire in sequenza: la seconda non viene mai eseguita. Ho ipotizzato che la causa stia nella chiusura del DB di Access, ma almeno apparentemente sembra chiuso.

Qualcuno sa darmi un suggerimento?

Grazie

[Rickycast]

Davvero nessuno ha qualche idea?
Sono praticamente sicuro che Access rimane "aperto" o comunque in uno stato di non accessibilità, perchè con il programma in esecuzione (non mentre esegue operazioni, ovviamente) ho cercato di aprire qualche File .mdb in altre directory, ma non c'è verso di aprirli.
Solo quando chiudo il programma i files .mdb si possono aprire.

[gibra]

Non sono per nulla esperto di Access, comunque ci provo.
Prova a sostituire le righe

Dim msAccess As Access.Application
Set msAccess = New Access.Application

con

Dim msAccess As Object
Set msAccess = CreateObject("Access.Application")