Sub DAOBB()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sorgum As String
 
Set db = CurrentDb()
 
    sorgum = "SELECT top 10000 isim " & _
        "FROM Tablo1 "
               Set rst = db.OpenRecordset(sorgum)
 
    Do While Not rst.EOF
        Debug.Print rst(0)
        rst.MoveNext
    Loop
 
    Debug.Print "Toplam Satır: " & rst.RecordCount
rst.Close
Set rst = Nothing
 
End Sub

Imports Microsoft.Office.Interop
Imports dao
Imports System.Data.OleDb
Imports System.Data
 
Class MainWindow
 
 
    ' Berkant Öztürk  [Access-Sql.com]
 
 
    Private Sub BtnKayitAl_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles BtnKayitAl.Click
 
        TxtSure.Text = ""
        LstKayit.Items.Clear()
        Dim baslangic As DateTime = DateTime.Now
        Dim myacc As New Access.Application
        Try
 
 
 
 
            myacc.OpenCurrentDatabase(Environment.CurrentDirectory & "\beab.mdb")
 
            Dim db As dao.Database
 
            Dim rst As dao.Recordset
 
            Dim sorgum As String = String.Format("SELECT Top {0} isim FROM Tablo1 ", TxtKayitSayisi.Text.Trim)
 
 
 
            db = myacc.CurrentDb()
 
 
            rst = db.OpenRecordset(sorgum)
 
            Do While Not rst.EOF
                LstKayit.Items.Add(rst(0).Value)
 
                rst.MoveNext()
            Loop
 
 
 
            rst.Close()
            rst = Nothing
 
            Dim bitis As DateTime = DateTime.Now
 
            Dim fark As TimeSpan = bitis - baslangic
 
            TxtSure.Text = (fark.TotalMilliseconds.ToString & " milisaniye")
 
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
 
        End Try
    End Sub
 
 
    Public Sub Baglanalim()
        Dim Sorgum As String = String.Format("SELECT Top {0} isim FROM Tablo1 ", TxtKayitSayisi.Text.Trim)
 
        Dim oleCon As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=beab.mdb")
 
        Dim oleComd As OleDbCommand = New OleDbCommand(Sorgum, oleCon)
 
        Dim dtst As New DataSet()
 
        Using adpt As New OleDbDataAdapter()
            Try
                oleCon.Open()
                adpt.SelectCommand = oleComd
                adpt.Fill(dtst, "Tablo1")
                LstOleKayit.DataContext = dtst
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            Finally
                oleCon.Close()
            End Try
        End Using
 
    End Sub
 
    Private Sub BtnOleDb_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles BtnOleDb.Click
        TxtSureOle.Text = ""
        LstOleKayit.DataContext = Nothing
        Dim baslangic As DateTime = DateTime.Now
 
 
        Baglanalim()
 
 
        Dim bitis As DateTime = DateTime.Now
 
        Dim fark As TimeSpan = bitis - baslangic
 
        TxtSureOle.Text = (fark.TotalMilliseconds.ToString & " milisaniye")
 
    End Sub
 
 
End Class