[VB6] Usare l'istruzione Jet.RefreshCache per evitare il ritardo di DAO

[Cavaliere Nero]

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:

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?

[gibra]

Stai sbagliando tutto.

Jet.RefreshCache è un metodo per ADO, invece tu usi DAO.

Se non sbaglio, DAO ha un metodo che dovrebbe chiamarsi all'incirca allo stesso modo.
Di più non so dirti, sono secoli che non uso DAO...

Inoltre vedo che tu usi il vetusto Data Control, e non so se funziona.

[Cavaliere Nero]

Lo dicesti tu stesso qui di usare quell'istruzione -> http://forum.html.it/forum/showthrea...o&pagenumber=2, o almeno sembrava riferito a DAO, parlavi del ritardo di 5 secondi di DAO .

[gibra]

Originariamente inviato da Cavaliere Nero
Lo dicesti tu stesso qui di usare quell'istruzione -> http://forum.html.it/forum/showthrea...o&pagenumber=2, o almeno sembrava riferito a DAO, parlavi del ritardo di 5 secondi di DAO .

Hai letto male, ovviamente.