Código:
dt.Columns.Add("Codigo", Type.GetType("System.String"))
Dim Row As DataRow
Row = dt.NewRow()
Row.Item("Codigo") = cod
dt.Rows.Add(Row)
dt.Rows.Item(i).ToString()
y el xls que genero queda de la siguiente manera
cuenta subcuenta partida subpartida concepto abono cargo id_salida Codigo
5000 5200 5200 5012 POLIZA DE IMSS CORRESPONDIENTE AL MES DE MARZO DEL 2010 0 24847.59 0
5000 5300 5301 5012 POLIZA DE IMSS CORRESPONDIENTE AL MES DE MARZO DEL 2010 0 8101 0
A0201
A0202
A0203
A0204
Alguien me puede orientar como le hago para que lo agrege como columna y no como row, gracias por su apoyo