Keşke iki dakika boş bir proje oluşturup örneği ekleseydiniz daha çabuk hallederdik. Vb.Net ile kodlamadığımdan tam emin olamıyorum ama şöyle bir şey olması gerek:

Private Sub optik(ByVal Sql As String)

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")

        Dim dt As New DataTable("omarka")

        Dim adapter As New OleDbDataAdapter(Sql, baglanti)

        adapter.Fill(dt)



        ComboBox3.DataSource = dt

        ComboBox3.ValueMember = "fiyat"

        ComboBox3.DisplayMember = "markaadi"





    End Sub





    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        optik("SELECT markaadi,fiyat FROM omarka ORDER BY markaadi")

        If ComboBox3.ValueMember = "Bosh" Then



            TextBox22.Text = ComboBox3.DisplayMember()



        ElseIf ComboBox13.Text = "Güneş Gözlüğü" Then



        ElseIf ComboBox13.Text = "Lens" Then



        End If



    End Sub