Görevi sadece combobox3'e markalari ve fiyatları yüklemekle görevli bir tane yordam ekledim.

Private Sub MarkalariYukle()



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

        Dim dt As New DataTable

        Dim adapter As New OleDbDataAdapter("SELECT fiyat,markaadi FROM omarka ORDER BY markaadi", baglanti)

        adapter.Fill(dt)



        ComboBox3.DataSource = dt

        ComboBox3.ValueMember = "fiyat"

        ComboBox3.DisplayMember = "markaadi"



    End Sub

Formun yüklenmesi (Load) olayında yukarıdaki yordamı çağırdım:

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

        MarkalariYukle()

    End Sub

İşle butonuna tıklayınca combobox3'te hangi marka seçili ise o markanın fiyatını textbox22'ye yazdırdım:

Private Sub isle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isle.Click





        TextBox22.Text = ComboBox3.SelectedValue





    End Sub

Sendeki yüklü olan Visual Studio bendekinden farklı sürüm olduğundan proje olarak yükleyemiyorum.