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

codice:
  '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.

codice:
 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