Hola podes crear un datatable de esta manera algo simple
Código:
Dim Tabla as new DataTable
Dim Columna as new DataColumn("Nombre")
Tabla.columns.add(Columna)
Con esto creas un table de una columna para llenarlo lo puedes hacer asi
Código:
Dim Fila as DataRow
fila = Tabla.newrow
Fila("Nombre") = Valor
Tabla.rows.add(Fila)
y lo asignas normal como un dataset Espero que con esto te des una idea