Imports System.Data.OleDb
 
Public Class Form1
 
 
 
    Public Function AdoNetExecute()
        Dim Baglanti As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Sirket.mdb;Persist Security Info=True"
        Dim SqlString As String = "SELECT * FROM Personel;"
 
        Using connection As New OleDbConnection(Baglanti)
            Dim command As OleDbCommand = connection.CreateCommand()
            command.CommandText = SqlString
            Dim baslangic As DateTime = DateTime.Now
 
            Try
                connection.Open()
                Dim dataReader As OleDbDataReader = _
                 command.ExecuteReader()
                Do While dataReader.Read()
                    LstAdoExec.Items.Add(dataReader(1))
 
                Loop
                Dim bitis As DateTime = DateTime.Now
 
                Dim fark As TimeSpan = bitis - baslangic
                LblAdoExec.Text = "Süre: " & fark.TotalMilliseconds.ToString() & " ms"
 
                dataReader.Close()
 
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
 
            End Try
        End Using
 
    End Function
 
       Public Function AdoNetDataSet()
 
        Dim Baglantim As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String
        Dim i As Integer
 
        Baglantim ="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\Sirket.mdb;Persist Security Info=True"
        sql = "select * from personel"
 
        connection = New OleDbConnection(Baglantim)
        Dim baslangic As DateTime = DateTime.Now
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbAdapter.Fill(ds)
            oledbAdapter.Dispose()
            connection.Close()
 
            For i = 0 To ds.Tables(0).Rows.Count - 1
                LstAdoDataset.Items.Add(ds.Tables(0).Rows(i).Item(1))
 
            Next
            Dim bitis As DateTime = DateTime.Now
 
            Dim fark As TimeSpan = bitis - baslangic
            LblAdoDataset.Text = "Süre: " & fark.TotalMilliseconds.ToString() & " ms"
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
 
    End Function
 
 
 
 
    Public Function AdoCom()
 
        Dim cn As New ADODB.Connection()
 
        Dim rs As New ADODB.Recordset()
        cn.Provider = "Microsoft.JET.OLEDB.4.0"
 
        Dim baslangic As DateTime = DateTime.Now
        Try
            cn.ConnectionString = CurDir() & "\Sirket.mdb"
            cn.Open()
 
            Dim sql As String = "Select * from personel"
            rs.Open(sql, cn)
            Do Until rs.EOF
                LstAdoCom.Items.Add(rs.Fields(1).Value)
                rs.MoveNext()
            Loop
            Dim bitis As DateTime = DateTime.Now
 
            Dim fark As TimeSpan = bitis - baslangic
            LblAdoCom.Text = "Süre: " & fark.TotalMilliseconds.ToString() & " ms"
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
 
        Finally
            cn.Close()
        End Try
 
 
 
    End Function
 
  End Class