Public Sub Baglanalim()
 
        oleCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=beab.mdb")
 
        oleComd = New OleDbCommand(strSql, oleCon)
 
        Dim dtst As New DataSet()
 
        Dim adpt As New OleDbDataAdapter()
 
        Try
 
            oleCon.Open()
 
            adpt.SelectCommand = oleComd
 
            adpt.Fill(dtst, "Tablo1")
 
 
            ListBox1.DataSource = dtst.Tables("Tablo1")
 
            ListBox1.DisplayMember = "isim"
 
 
 
        Catch ex As Exception
 
        Finally
 
            oleCon.Close()
 
        End Try
 
    End Sub
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim baslangic As DateTime = DateTime.Now
 
        Baglanalim()
 
        Dim bitis As DateTime = DateTime.Now
 
        Dim fark As TimeSpan = bitis - baslangic
 
        Label1.Text = "Süre: " & fark.TotalMilliseconds.ToString() & " milisaniye"
 
    End Sub

Public Sub Baglanalim()
 
        oleCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=beab.mdb")
 
        oleComd = New OleDbCommand(strSql, oleCon)
 
        Dim dtst As New DataSet()
 
        Dim adpt As New OleDbDataAdapter()
 
        Try
 
            oleCon.Open()
 
            adpt.SelectCommand = oleComd
 
            adpt.Fill(dtst, "Tablo1")
 
            Listbox1.DataContext = dtst
 
 
 
        Catch ex As Exception
 
        Finally
 
            oleCon.Close()
 
        End Try
 
    End Sub

<UserControl x:Class="UserControl1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Width="160" Height="258" Name="UserControl1">
    <Grid Width="160">
 
            <ListBox Margin="0,29,0,27" ItemsSource="{Binding Path=Tablo1}" Name="Listbox1">
 
                <ListBox.ItemTemplate>
 
                    <DataTemplate>
 
                        <StackPanel>
 
                            <TextBlock Text="{Binding Path=isim}" FontSize="12" />
 
 
 
                        </StackPanel>
 
                    </DataTemplate>
 
                </ListBox.ItemTemplate>
 
            </ListBox>
            <Button Height="23" Margin="41,0,44,0" Name="Button1" VerticalAlignment="Top">Wpf</Button>
        <TextBlock Height="21" Margin="1,0,0,3" Name="TextBlock1" VerticalAlignment="Bottom" />
    </Grid>
</UserControl>