Set Tabla = CurrentDb.OpenRecordset("DatosCliente", dbOpenDynaset)
Tabla.MoveLast
Tabla.MoveFirst
For k = 0 To Tabla.RecordCount - 1
Tabla.Edit
Tabla.Fields(2) = False
Tabla.Update
Tabla.MoveNext
Next