Can't get Resync to work 1

[FancyPrairie]

I'm having trouble getting the Resync method to work on a recordset. For testing purposes I created a table with one date/time field. The following code returns the error "3251 The current provider does not support refreshing underlying values". It appears that the recordset supports the Resync method because rst.supports(adResync) returns true.

What am I doing wrong?

Function foo()

    Dim rst As New ADODB.Recordset
    
    rst.Open "select * from Table1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
    rst.Resync

ExitProcedure:

    Exit Function
    
ErrHandler:

    MsgBox Err.Number & vbCrLf & Err.Description
    Resume ExitProcedure
    
End Function

 

[Remou]

From David Browne:

rst.CursorLocation = adUseClient

 

[FancyPrairie]

I tried that once and it didn't work. Must have typed something wrong. Anyway, it now works thanks