dataSet - dataTable

[manyametal]

hola,
tengo un dataSet que lo cargo trayendo los datos de una bd.
DT = DS.Tables(0)
ahí quedaría cargado el dataTable.
Lo que necesito es agregar 2 nuevas columnas al dataTable(YearA y YearB) que son datos extras a la bd.
Hago lo siguiente

DT.Columns.Add(New DataColumn("fecha1", GetType(Integer)))
DT.Columns.Add(New DataColumn("fecha2", GetType(Integer)))
Dim fila As DataRow
fila = DT.NewRow()
fila("fecha1") = fecha1
fila("fecha2") = fecha2
DT.Rows.Add(fila)

a la hora de mostrar solo estan los datos de la bd, pero fecha1 y fecha2 no lo muestra...

[Adolfiten]

Código:

Dim conectora As New Conectoras.ConexionMySQL
Dim ds As New DataSet

ds = conectora.EjecutarSQL("SELECT * FROM persona")

Dim dt As New DataTable
dt = ds.Tables(0)

Dim dtc As New DataColumn   'INSTANCIO LA NUEVA COLUMNA A AGREGAR
dtc.ColumnName = "EDAD"      'LE PONGO NOMBRE A LA COLUMNA

dt.Columns.Add(dtc)                'LA AGREGO A LA TABLA

'AHORA PARA FIJARME DE QUE SE HAYA AGREGADO BIEN IMPRIMO LA CANTIDAD
'DE CAMPOS DE LA TABLA. SI SE AGREGO BIEN DEBERIA HABER UN CAMPO MAS,
'SINO VA A IMPRIMIR LA CANTIDAD DE CAMPOS DE LA TABLA PERSONA QUE 
'ESTA EN LA DB

MsgBox("CANTIDAD DE CAMPOS DE TABLA: " & dt.Columns.Count)