Have you tried using a DataRowView rather than a DataRow?

>Anybody know why these records aren't sorted when they go through the MessageBoxes?
>
>
> Dim ModelDV As DataView
> ModelDV = New DataView(ds1.Tables("detail"))
> ModelDV.Sort = "Gauge, WColor, HighTemp, JobName11, PartName, Model_No"
>
>
> Dim row As DataRow
> For Each row In ModelDV.Table.Rows
> MsgBox(row("PartName"))
> Next
>
>Thanks...