Dim MyDataSet As New DataSet
Dim MyDataTable As New DataTable
MyDataSet.Tables.Add(MyDataTable)
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
MyDataSet.Tables(0).Columns.Add(ListView1.Items(i).ToString)
Next
Dim j As Integer
MyDataSet.Tables(0).Rows.Add()
For i = 0 To ListView1.Items.Count - 1
For j = 0 To MyDataSet.Tables(0).Columns.Count - 1
MyDataSet.Tables(0).Rows(0).Item(j) = ListView1.Items(j).Text
Next
Next
DataGridView1.DataSource = MyDataSet.Tables(0)