I am using VB6 ADO and Access Database. There are 5PCs connected to an Access database which resides on a designated server.

Problem is the code below updates most of the time but in some cases does not update??
All other update processes within the app work fine. Nobody seems to have a problem with anything other than this particular function.
My thought was that I should use ‘Updatebatch’ rather than ‘Update’, but if I do I get an error. Should I include the update within the Loop?
Anyone got any advice??

Dim RSLog as New ADODB.Recordset

RSLog.Open "Select * From WorkTickets_Tracking", Datacon, adOpenStatic, adLockOptimistic

For I = 0 To 100
'Find this workticket Number
RSLog.Find "Workticket=" + Str$(wt(I)), 0, adSearchForward, 1
If RSLog.EOF Then GoTo NextWorkTicket 'Work ticket number not found
'The item is found so update the table

RSLog("Status") = True ‘Set the status true

NextWorkTicket:
Next I
RSLog.Update
RSLog.Close