Imports System.ComponentModel

Public Class dn

    Dim dn_no As String
    Dim ddep As String
    Dim dest As String
    Dim balans As Decimal

    Public Property mydn As String
        Get
            Return dn_no
        End Get

        Set(ByVal value As String)
            dn_no = value
        End Set
    End Property
    Public Property _ddep As String
        Get
            Return ddep
        End Get

        Set(ByVal value As String)
            ddep = value
        End Set
    End Property

    Public Property _dest As String
        Get
            Return dest
        End Get

        Set(ByVal value As String)
            dest = value
        End Set
    End Property

    Public Property _balanc As Decimal
        Get
            Return balans
        End Get

        Set(ByVal value As Decimal)
            balans = value
        End Set
    End Property

    Sub New(dn As String,
            ddep As String,
            dest As String,
            balans As Decimal)

        Me.dn_no = dn
        Me.ddep = ddep
        Me.dest = dest
        Me.balans = balans

    End Sub

End Class

Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections.ObjectModel

Class MainWindow

    Public Sub New()

        Dim cn = New SqlConnection(
            ConfigurationManager.ConnectionStrings("ms_cn").ConnectionString)
        Dim cm As New SqlCommand("get_info_bp", cn)

        cm.CommandType = System.Data.CommandType.StoredProcedure

        InitializeComponent()
        Dim recColl = New ObservableCollection(Of dn)

        cn.Open()
        Dim reader As SqlDataReader = cm.ExecuteReader()

        Using cn
            While reader.Read()
                'adding row data to observable
                recColl.Add(New dn(reader("My_dn_no").ToString, reader("ddep").ToString, reader("dest").ToString, reader("balans").ToString))
            End While
        End Using

        ' Me.lbx.ItemsSource = recColl

    End Sub


End Class

<Window x:Class="MainWindow" x:Name="mwnd"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:WpfApplication1"
        mc:Ignorable="d"
        DataContext="{Binding RelativeSource={RelativeSource Self}}"
      
        
        Title="MainWindow" Height="350" Width="525">
    <Grid>
        <Grid.ColumnDefinitions>
            <ColumnDefinition/>
        </Grid.ColumnDefinitions>

        <ListBox Name="lbx"  ItemsSource="{Binding Path=recColl}" DisplayMemberPath="mydn"  >
        </ListBox>

    </Grid>
</Window>

namespace WpfApplication1
{
    /// <summary>
    /// Interaction logic for MainWindow.xaml
    /// </summary>
    public partial class MainWindow : Window
    {
        public ObservableCollection<Person> ppl;
        public MainWindow()
        {
            InitializeComponent();
            ppl = new ObservableCollection<Person>();
      //     listBox1.ItemsSource = ppl;
            ppl.Add(new Person { Name = "One", Age = 15 });
        }
 
        private void button1_Click(object sender, RoutedEventArgs e)
        {
            ppl.Add(new Person { Name = "Two", Age = 25 });
   
        }
    }
}

Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.Configuration
Imports System.Data.SqlClient


Namespace VM_namespace
    Public Class VM
        Implements INotifyPropertyChanged

        Private recColl As ObservableCollection(Of dn)
        Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

        Public Property rc() As ObservableCollection(Of dn)
            Get
                Return recColl
            End Get
            Set
                recColl = Value
            End Set
        End Property
        Public Sub New()
            Me.rc = getcol()
        End Sub

        Private Function getcol()
            Dim cn = New SqlConnection(
          ConfigurationManager.ConnectionStrings("ms_cn").ConnectionString)
            Dim cm As New SqlCommand("get_info_bp", cn)

            cm.CommandType = System.Data.CommandType.StoredProcedure

            Dim recColl = New ObservableCollection(Of dn)

            cn.Open()
            Dim reader As SqlDataReader = cm.ExecuteReader()

            Using cn
                While reader.Read()
                    'adding row data to observable
                    recColl.Add(New dn(reader("My_dn_no").ToString, reader("ddep").ToString, reader("dest").ToString, reader("balans").ToString))
                End While
            End Using

            Return recColl
        End Function
    End Class

End Namespace

<Window x:Class="MainWindow" x:Name="mwnd"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:viewmodel="clr-namespace:WpfApplication1.VM_namespace"  
        mc:Ignorable="d"     
        Title="MainWindow" Height="350" Width="525">

    
    <Window.DataContext>
        <viewmodel:VM/>
    </Window.DataContext>

    
    <Grid>
        <Grid.ColumnDefinitions>
            <ColumnDefinition/>
        </Grid.ColumnDefinitions>

        <ListBox Name="lbx" ItemsSource="{Binding Path=rc}"  >
        </ListBox>

    </Grid>
</Window>

Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections.ObjectModel

Class MainWindow

    Public Sub New()

        'Dim MyViewModel = New VM_namespace.VM
        'Me.DataContext = MyViewModel

    End Sub


End Class