how to add a new column to dataset or datatble returned

To add a new column to dataset or datatble

Dim ds As DataSet
ds = New DataSet()
ds.Tables(0).Columns.Add("ProductDesc")
ds.Tables(0).AcceptChanges()