hi,
I am using recordset to connect to the MS access from vb6. I am using recordset.move to get the data, example show as below:

Code:
'*** saved to db
rsDataTrend.AddNew
:
rsDataTrend.Update

rsDataTrend.MoveLast
lTotalRecords = rsDataTrend.RecordCount

rsDataTrend.MoveFirst
rsDataTrend.MoveLast
EmptyRow = 0
DoEvents

'*** get the last 40 values
If lTotalRecords >= 40 Then
    rsDataTrend.Move -40
    EmptyRow = 0
Else
    rsDataTrend.MoveFirst
    EmptyRow = 40 - lTotalRecords
End If

DoEvents
rsDataTrend.MoveLast
rsDataTrend.Move -40

'*** retrive value one by one from database by using for loop
:
If Not (rsDataTrend.BOF) Then
   .RowLabel = Format$((rsDataTrend("RTime")), "hh:mm:ss")
   '***some coding here
endif
Sometime the coding above is no problem.But its failed to retrive the latest data from database even the data have been store into database.

Example, the total record is 400, when using the code to retrive the values, i will get the data start from 360 to 400. But sometime i will keep getting the same data(360 - 400) even the total record was changed to 450.

Does anyone tell me the any possible could course this problem happened?

Thanks in advance.

regards
cocoonwls