Code Snippet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As SqlConnection = New SqlConnection("Data Source=servername;Initial
Catalog=Northwind;Integrated Security=True")
Dim ds As DataSet = New DataSet()
Dim sel As String = "SELECT ShipperID, CompanyName FROM Shippers"
Dim da As SqlDataAdapter = New SqlDataAdapter(sel, conn)
da.Fill(ds, "Shippers")
Dim dv As DataView = New DataView(ds.Tables("Shippers"))
dv.Sort = "CompanyName DESC"
Me.DataGrid1.DataSource = dv
Dim dt As DataTable = New DataTable()
Dim myColumn As DataColumn
myColumn = New DataColumn()
myColumn.DataType = System.Type.GetType("System.Int32")
myColumn.ColumnName = "ShipperID"
dt.Columns.Add(myColumn)
myColumn = New DataColumn()
myColumn.DataType = Type.GetType("System.String")
myColumn.ColumnName = "CompanyName"
dt.Columns.Add(myColumn)
Dim dr As DataRow
For i As Integer = 0 To 2
dr = dt.NewRow()
For j As Integer = 0 To dv.Table.Columns.Count - 1
dr.Item(j) = Me.DataGrid1(i, j)
Next
dt.Rows.Add(dr)
Next
Me.DataGrid1.DataSource = Nothing
Me.DataGrid1.DataSource = dt
End Sub