procedure TForm2.Button1Click(Sender: TObject); var i:integer; begin i:=5; ADODataset1.Locate('Cod',i,[]); DBGridEh1.Columns.Items[2].Field.NewValue:='True'; ADODataSet1.Next(); //ADODataset1.Locate('Cod',i+1,[]); end;