Para agregar una fila a un datatable:
Código:
Dim dRow as DataRow = miDataTable.NewRow()
dRow("Columna1") = "pepe"
dRow("Columna2") = "pipi"
[...]
miDataTable.Rows.Add(dRow)
Con esto ya lo tendrías. Y esto lo que tiene que resultar es con tu propósito, cada vez que se ejecute ese código, se le agrega una fila a tu DataTable.
Espero te sirva.
Saludos.