LLenar datatable

[kyha]

buenas a todos

Me gustaria saber como puedo llenar un datatable con lo que me devuelve la funcion select que se supone que es una funcion de datarows.

He probado lo siguiente pero no me funciona

Dim dt As DataTable = New DataTable()
dt = dtabla.Clone()
dt.Rows.Add(dtabla.Select(condicion, "p18des"))

dgrid1.DataSource = dt

Gracias

[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