[WPF] Вывести данные из БД в ListView

Imports System.Data
Imports System.Collections.ObjectModel
 
 
Class MainWindow
    Private Sub button_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
        'TODO: Add event handler implementation here.
        add_column_listview()
    End Sub
 
    Private Sub add_column_listview()
        Dim myListView As New ListView
 
        Dim myGridView As New GridView()
        myGridView.AllowsColumnReorder = True
        myGridView.ColumnHeaderToolTip = "Тултип"
 
        Dim gvc1 As New GridViewColumn()
        gvc1.DisplayMemberBinding = New Binding("ID")
        gvc1.Header = "ID"
        gvc1.Width = 100
        myGridView.Columns.Add(gvc1)
 
        Dim gvc2 As New GridViewColumn
        gvc2.DisplayMemberBinding = New Binding("NameInfo")
        gvc2.Header = "Заголовок инфы"
        gvc2.Width = 100
        myGridView.Columns.Add(gvc2)
 
        Dim gvc3 As New GridViewColumn()
        gvc3.DisplayMemberBinding = New Binding("Razdel")
        gvc3.Header = "Раздел"
        gvc3.Width = 100
        myGridView.Columns.Add(gvc3)
 
        ListView1.ItemsSource = New Information()
        ListView1.View = myGridView
    End Sub
End Class
 
Public Class Information
    Inherits ObservableCollection(Of MyInfo)
    Public con As OleDb.OleDbConnection
    Public DR As OleDb.OleDbDataReader
    Public SqlCom As OleDb.OleDbCommand
    Public pathDB As String = "C:\Documents and Settings\DataBase.mdb" 'Путь к базе
 
    Public Sub New()
        con = New OleDb.OleDbConnection("Provider=microsoft.jet.OLEDB.4.0; Data Source =" & pathDB) 'Подключение базы
 
        SqlCom = New OleDb.OleDbCommand("SELECT ID, nameInfo, Razdel FROM [ЖКХ]", con) 'обыкновенный запрос на выборку
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            DR = SqlCom.ExecuteReader
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
        While DR.Read
            Add(New MyInfo(DR(0), DR(1).ToString, DR(2).ToString)) ' Добавляем в коллекцию
        End While
        con.Close()
    End Sub
End Class
 
Public Class MyInfo
    Private _ID As Integer
    Private _NameInfo As String
    Private _Razdel As String
 
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property
 
    Public Property NameInfo() As String
        Get
            Return _NameInfo
        End Get
        Set(ByVal value As String)
            _NameInfo = value
        End Set
    End Property
 
    Public Property Razdel() As String
        Get
            Return _Razdel
        End Get
        Set(ByVal value As String)
            _Razdel = value
        End Set
    End Property
 
    Public Sub New(ByVal ID As Integer, ByVal NameInfo As String, ByVal Razdel As String)
        _ID = ID
        _NameInfo = NameInfo
        _Razdel = Razdel
    End Sub
End Class