Dim custDS As DataSet = New DataSet

Dim ordersTable As DataTable = custDS.Tables.Add("Orders")

Dim orow As DataRow

'set up columns in the results table

ordersTable.Columns.Add("col1", GetType(System.String))

ordersTable.Columns.Add("col2", GetType(System.String))

ordersTable.Columns.Add("col2", GetType(System.String))

For Each object In collection

orow = ordersTable.NewRow()

orow("title") = object .Title

orow("docid") = object .Document_Id
orow("userid") = object .User_Id

ordersTable.Rows.Add(orow)

Next

Return custDS