LLenar datatable

[kyha]

Al final lo he solucionado asi :

dgrid1.DataSource =""
Dim dt As DataTable = New DataTable()
dt = dtabla.Clone()
Dim rows() As DataRow = dtabla.Select(condicion, "p18des")
' Añadimos los registros hallados a la nueva tabla
ForEach row As DataRow In rows
dt.ImportRow(row)
Next
dgrid1.DataSource = dt

Pero sigo pensando que tiene que haber otra forma, si alguien la sabe o me equivoco y la unica forma es asi que me lo diga.
Gracias