Con el Select del data table obtines un array de datarows. Mira el Ejemplo
'Array de rows
Dim Filtro() As DataRow = Nothing
'En el select enviamos el where que queremos que filtre en el data table
Filtro = DTArticulos.Select("CodigoArticulo= 'art1'")
'si el select obtubo algun registro los imprimimos
If Filtro .Length > 0 Then
For x = 0 To Filtro.Length - 1
MsgBox(Filtro(x).Item("CodigoArticulo")) 'imprime art1
Next
End If