Dim I As Int32 For I = 0 To DataGrid.Items.Count-1 variable = DataGrid.DataKeys(Dg.Items(I).ItemIndex) Next