Private Sub Listele(ByVal Sql As String)
        Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanı.mdb'")
        Dim veriler As New System.Data.DataTable("Tablo adı")
        Dim adapter As New OleDbDataAdapter(SQL, baglanti)
        adapter.Fill(veriler)
        DataGridView1.DataSource = veriler
        baglanti.Close()
End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Listele("SELECT * FROM Tablo adın order by hangi alana göre sıralancak")

'genellikle 0.  alan id olacağı için datagridde görünmesini istemeyiz ve gizliyoruz

 DataGridView1.Columns(0).Visible = False

'datagridde alanları yediden adlandırabilirsin

 DataGridView1.Columns(1).HeaderText = "Firma Ünvanı"
 DataGridView1.Columns(2).HeaderText = "Adresi"

' datagridin şeklini değiştirelin azıcık 

DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.SlateGray ' başlık rengini değiştir
DataGridView1.ColumnHeadersDefaultCellStyle.Font = New System.Drawing.Font("Tahoma", 7.5, FontStyle.Bold) ' başlık font stili

End Sub

 Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        TextBox1.Text = IIf(IsDBNull(DataGridView1.CurrentRow.Cells(1).Value), "", DataGridView1.CurrentRow.Cells(1).Value)
        TextBox2.Text = IIf(IsDBNull(DataGridView1.CurrentRow.Cells(2).Value), "", DataGridView1.CurrentRow.Cells(2).Value)

' TextBox1 e veritabanındaki 1. alandaki veri gelecek 
' TextBox2 ye veritabanındaki 2. alandaki veri gelecek 
End Sub

Public Sub arama(ByVal aranan As String)
        Dim baglanti = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritbanı adı.mdb'")
        Dim sondan_arama As String = "select * from tablo adın where alan adın like'%" + aranan + "'"
        Dim bastan_arama As String = "select * from tablo adın where alan adın like'" + aranan + "'%"
        Dim ortadan_arama As String = "select * from tablo adın where alan adın like'%" + aranan + "%'"
        Dim adaptor As New OleDbDataAdapter(ortadan_arama, baglanti)
        Dim tablo As New System.Data.DataTable
        adaptor.Fill(tablo)
        DataGridView1.DataSource = tablo
    End Sub

Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        arama(TextBox10.Text)
End Sub