Поиск записи в XML-документа

Module Module1    Sub Main()        Findrecord("Bond")    End Sub    Sub Findrecord(ByVal lastname As String)        Dim ds As DataSet = New DataSet()        ds.ReadXml("c:list.xml")        Dim dv As DataView = New DataView(ds.Tables("Employee"))        dv.Sort = "LastName"        Dim row As Integer = dv.Find(lastname)        Dim msg As String = String.Empty        If row < 0 Then            Console.WriteLine("Employee was not found")        Else            msg = dv(row)("FirstName").ToString() & vbCr            msg += dv(row)("LastName").ToString() & vbCr            msg += dv(row)("E-Mail").ToString() & vbCr            MessageBox.Show(msg)        End If        Console.ReadLine()    End SubEnd Module