[Access2007] Application.FileSearch restituisce errore

[Rickycast]

Buongiorno.
Ho convertito un DB Access 2000 (.mdb) in Access 2007 (.accdb) e quando eseguo il modulo iniziale, che contiene il seguente Codice

Sub APRI()
    Dim MDB, TBA, FLD, ZZZ, FS
    
    Set MDB = DBEngine.Workspaces(0).Databases(0)
    Set TBA = MDB.OpenRecordset("APERTO")
    Set FLD = TBA.Fields("ORIGIN")
    TBA.MoveLast
    TBA.MoveFirst
    ZZZ = FLD.Value
    TBA.Close
    
    With Application.FileSearch
        .LookIn = "S:\MIOFILE\ARCHIVI"
        .FileName = "GENERALE.MDB"
        If .Execute > 0 Then
            If ZZZ = "C" Then
                .LookIn = "C:\MIOFILE\ARCHIVI"
                .FileName = "GENERALE.MDB"
......
.....

l'esecuzione si arresta subito alla Riga "With Application.FileSearch" con il seguente errore:
Riferimento non valido alla proprietà FileSearch

Ipotizzo che manchi appunto un Riferimento, ma non so quale: qualcuno può aiutarmi?
Oppure dirmi cosa c'è di sbagliato?
Ovviamente con Access 2000 filava tutto liscio.
Grazie

P.S.: dovrei aprire questo .mdb e quindi Access 2000 nello stesso PC in cui è installato Access 2007 e ogni volta Windows 10 chiede di ripetere l'installazione dell'uno o dell'altro; così ho pensato di convertire il .mdb in .accdb ma come ho detto, mi sono subito fermato.

[gibra]

Hai fatto una ricerca sul web?
Se non ricordo male è un problema noto.

[Rickycast]

Sì, ho visto solo qualche minuto fa che è un problema noto. Credo anche di avere capito che stringhe come queste:

 .LookIn = "S:\MIOFILE\ARCHIVI"
 .FileName = "GENERALE.MDB"
 If .Execute > 0 Then

non si possano più utilizzare. Con cosa si sostituiscono? Questo non l'ho trovato.