Нужно всю таблицу из Xml импортировать в ListView1

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SXml As New System.Xml.XPath.XPathDocument("c:\путь до файла.xml")
        Dim str(10) As String
        Dim itm As ListViewItem
        str(0) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@d").Value
        str(1) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@n").Value
        str(2) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@zp").Value
        str(3) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@zv").Value
        str(4) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@s").Value
        str(5) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@a").Value
        str(6) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@dup").Value
        str(7) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@f").Value
        str(7) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@bd").Value
        str(9) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@cur").Value
        str(10) = SXml.CreateNavigator.SelectSingleNode("/Report/ds/i/@gmt").Value
        itm = New ListViewItem(str)
        ListView1.Items.Add(itm)
    End Sub
End Class

 Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator
        Dim XMLNI As System.Xml.XPath.XPathNodeIterator = XMLNav.Select("/Report/ds/i")
        While XMLNI.MoveNext
            Debug.Print(XMLNI.Current.GetAttribute("d", XMLNI.Current.NamespaceURI)) 'берете атрибуты которые нужны
        End While

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator()
        Dim tb As New DataTable
        tb.Columns.Add("d")
        tb.Columns.Add("n")
        tb.Columns.Add("zp")
        tb.Columns.Add("zv")
        tb.Columns.Add("s")
        tb.Columns.Add("a")
        tb.Columns.Add("du")
        tb.Columns.Add("c")
        tb.Columns.Add("dup")
        tb.Columns.Add("f")
        tb.Columns.Add("bd")
        tb.Columns.Add("cur")
        tb.Columns.Add("gmt")
 
        For Each XMLPath As System.Xml.XPath.XPathNavigator In XMLNav.Select("/Report/ds/i")
            Dim tr As DataRow = tb.NewRow
 
            If Not XMLPath.SelectSingleNode("@d") Is Nothing _
                Then tr("d") = XMLPath.SelectSingleNode("@d").Value
            If Not XMLPath.SelectSingleNode("@n") Is Nothing _
                Then tr("n") = XMLPath.SelectSingleNode("@n").Value
            If Not XMLPath.SelectSingleNode("@zp") Is Nothing _
                Then tr("zp") = XMLPath.SelectSingleNode("@zp").Value
            If Not XMLPath.SelectSingleNode("@s") Is Nothing _
                Then tr("zv") = XMLPath.SelectSingleNode("@zv").Value
            If Not XMLPath.SelectSingleNode("@bd") Is Nothing _
                Then tr("s") = XMLPath.SelectSingleNode("@s").Value
            If Not XMLPath.SelectSingleNode("@a") Is Nothing _
                Then tr("a") = XMLPath.SelectSingleNode("@a").Value
            If Not XMLPath.SelectSingleNode("@du") Is Nothing _
                Then tr("du") = XMLPath.SelectSingleNode("@du").Value
            If Not XMLPath.SelectSingleNode("@c") Is Nothing _
                Then tr("c") = XMLPath.SelectSingleNode("@c").Value
            If Not XMLPath.SelectSingleNode("@dup") Is Nothing _
                Then tr("dup") = XMLPath.SelectSingleNode("@dup").Value
            If Not XMLPath.SelectSingleNode("@f") Is Nothing _
                Then tr("f") = XMLPath.SelectSingleNode("@f").Value
            If Not XMLPath.SelectSingleNode("@bd") Is Nothing _
                Then tr("bd") = XMLPath.SelectSingleNode("@bd").Value
            If Not XMLPath.SelectSingleNode("@cur") Is Nothing _
                Then tr("cur") = XMLPath.SelectSingleNode("@cur").Value
            If Not XMLPath.SelectSingleNode("@gmt") Is Nothing _
                Then tr("gmt") = XMLPath.SelectSingleNode("@gmt").Value
 
            tb.Rows.Add(tr)
        Next
        DataGridView1.DataSource = tb

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb As New DataTable
        tb.Columns.Add("d")
        tb.Columns.Add("n")
        tb.Columns.Add("zp")
        tb.Columns.Add("zv")
        tb.Columns.Add("s")
        tb.Columns.Add("a")
        tb.Columns.Add("du")
        tb.Columns.Add("c")
        tb.Columns.Add("dup")
        tb.Columns.Add("f")
        tb.Columns.Add("bd")
        tb.Columns.Add("cur")
        tb.Columns.Add("gmt")
        Dim tr As DataRow = tb.NewRow
        Dim TReader As New System.IO.StreamReader(OpenFileDialog1.FileName, True)
        Dim SXml As New System.Xml.XPath.XPathDocument(TReader)
        Dim XMLNav As System.Xml.XPath.XPathNavigator = SXml.CreateNavigator()
        Dim ni As System.Xml.XPath.XPathNodeIterator = XMLNav.Select("/Report/ds/i")
        While (ni.MoveNext())
            tr = tb.NewRow
            Dim nav2 As System.Xml.XPath.XPathNavigator = ni.Current.Clone()
            nav2.MoveToFirstAttribute()
            addData(nav2.Name, nav2.Value, tr)
            While (nav2.MoveToNextAttribute())
                addData(nav2.Name, nav2.Value, tr)
            End While
            tb.Rows.Add(tr)
        End While
        DataGridView1.DataSource = tb
    End Sub
    Sub addData(ByVal name As String, ByVal val As String, ByRef tr As DataRow)
        For Each col As DataColumn In tr.Table.Columns
            If col.ColumnName = name Then tr(name) = val
        Next
    End Sub