Dim conn As New SqlConnection("Server=localhost;user id=sa;password=xxx;database=Northwind;")
Dim da As New SqlDataAdapter("Select * from products", conn)
Dim ds As New DataSet
da.Fill(ds, "Products")
Dim ds1 As New DataSet
Dim datTable As New DataTable
Dim datRow As DataRow
Dim ary() As Object
datTable = ds.Tables("Products").Clone()
For iCount As Integer = 0 To 2
datRow = datTable.NewRow
ary = ds.Tables("Products").Rows(iCount).ItemArray()
datRow.ItemArray = ary
datTable.Rows.Add(datRow)
Next
ds1.Tables.Add(datTable)
DataGrid1.DataSource = ds
DataGrid1.DataBind()
DataGrid2.DataSource = ds1
DataGrid2.DataBind()