Joyjit,
Can you give me more details, please.
dim ds as dataset
dim table as dataTable = ds.Tables(0)
dt = New DataColumn
dt.Caption = header
dt.ColumnName = header
dt.DataType = System.Type.GetType("String.Type") ' THrows an exception
table.Columns.Add(dt)
table.Rows(ix).ItemArray(columncount - 1) ='R' ' Does nothing