Essaye comme ca :
Dim ds As New DataSet
For i As Integer = 0 To ds.Tables.Count
Dim colonne As New DataColumn
ds.Tables.Item(i).Columns.Add(colonne)
Next
ou sinon tu dois pouvoir faire ca, via un schema xml, mais je connais pas assez bien les dataset pour t'en dire d'avantage.
Cyril - http://Hoshimi.CodeS-SourceS.fr