For Each dt As DataTable In DataTables For Each dr As DataRow In dt.DataRows If dr.RowState <> DataRowState.Unchanged Then dr.save msgbox(dr("_Identify")) End If NextNext