Buonasera a tutti. Forse è un problema stupido, ma non riesco a usare l'istruzione Jet.RefreshCache CN per evitare il ritardo di 5 secondi di DAO.
Il codice che uso è questo:

codice:
Dim Drive
Public Jet As JetEngine

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Dichiarazione dell'API

Private Sub Form_Load()

    Set Jet = New JRO.JetEngine

    Drive = "C:\DB.mdb"
    
End Sub

Private Sub cmdAvvia_Click()

    ProgressBar1.Visible = True
    
    AccessoDB = "MS Access"
    Data1.Connect = AccessoDB
    Data1.DatabaseName = Drive
    Data1.RecordSource = "articoli"
    Data1.Refresh
    'Sleep 5000' Avevo provato a fare attendere 5 secondi per fare aggiornare i dati, ma si ferma anche l'aggiornamento O_o

    ProgressBar1.Max = Data1.Recordset.RecordCount

End Sub
Adesso per usare quell'istruzione, dove e come devo utilizzarla?