Visual Basic - Actualizar registros uno a uno...

Private Sub cmdActualizar_Click()
'OBTENER EL CÓDIGO DE LA ULTIMA VENTA DE LA FECHA INIDICADA
adoTicket.RecordSource = "SELECT MAX(tic_cod) From Ticket WHERE tic_fec=’01/08/2004’ "
adoTicket.Refresh
maximo = Trim(adoTicket.Recordset(0))

'SELECCIONAR LOS TICKETS VENDIDOS EN LA FECHA INDICADA
adoTicket.RecordSource = "SELECT tic_cod From Ticket WHERE (tic_fec = ‘02/08/2004’) order by tic_cod"
adoTicket.Refresh
ProgressBar1.Max = adoTicket.Recordset.RecordCount
adoTicket.Recordset.MoveFirst

'CICLO PARA ACTUALIZAR CADA REGISTRO DE LA SELECCION
For i = 1 To adoTicket.Recordset.RecordCount
codigo = "00000" + Trim(Str(Val(maximo) + i))
' cCero = Len(Trim(maximo)) - Len(codigo)
' For j = 1 To cCero
' codigo = "0" + codigo
' Next j
adoTicket.Recordset("tic_cod") = codigo
adoTicket.Recordset.Update
adoTicket.Refresh
adoTicket.Recordset.MoveNext
ProgressBar1.Value = i
lblProgreso = Str(i * 100 \ adoTicket.Recordset.RecordCount) + "% Completado"
lblProgreso.Refresh
Next i

MsgBox "Actualización Completada", vbInformation
End Sub