Dim dst As New DataSet()
Dim myType As System.Type
myType = System.Type.GetType("System.Int32")
Dim a As New DataColumn("MyID", myType)
a.AutoIncrement = True
Dim b As New DataTable("tbltemp")
dst.Tables.Add(b)
dst.Tables(0).Columns.Add(a)
DataGrid1.DataSource = dst