Cara, tentei simular o senario aqui e aparentemente funcionou! da uma olhada e vê se é o que você prescisa!
Dim Tb As New DataTable("Teste")
Tb.Columns.Add("Cod")
Tb.Columns.Add("Descricao")
Dim Dr As DataRow
Dim i As Integer = 0
For i = 0 To 10
Dr = Tb.NewRow
Tb.Rows.Add(Dr)
Dr.Item(
"Cod") = i
Dr.Item("Descricao") = "teste" & i
Next
Dim vDt As DataTable = Tb
For Each vRow As DataRow In vDt.Select("Cod > 5")
vRow.Delete()
Next
até.;;
Rafael N. Miranda