'Assuming that we have a DataSet ds that contains a table 'Create a new table (similar to VFP cursor) Dim oTable As New DataTable("MyTable") oTable.Columns.Add(New DataColumn("field1", GetType(String))) oTable.Columns.Add(New DataColumn("field2", GetType(Integer))) 'Iterate through each row in an existing table 'and add a new row in the newly created table Dim r As DataRow For Each r In ds.Tables(0).Rows Dim oNewRow As DataRow = oTable.DefaultView.AddNew().Row oNewRow("field1") = r("cname") oNewRow("field2") = r("iid") Next 'Add the newly created table to the DataSet ds.Tables.Add(oTable)Hope this helps.