One way is using the DataRow extension method Field which is strongly typed and supports nullable types:
For Each row As DataRow in ds.Tables(0).Rows
Dim PrID As Int32 = row.Field(Of Int32)("PrID")
Next
Edit: If you want another DataTable with a subset of columns of the original DataTable you can use the DataView of the table and it's ToTable method:
Dim displayView = New DataView(ds.Tables(0))
' if you're only interested in: PrID, Col2, Col3
Dim subset As DataTable = displayView.ToTable(false, "PrID", "Col2", "Col3")