I just tried that... Had to change the .table to .table.defaultview like so:

Dim row As DataRowView
For Each row In ModelDV.Table.DefaultView
MsgBox(row("PartName"))
Next


But problem still exists. I just displays the records like I never sorted them.