Aşağıdakai yaptığım eklemeyi yapınız...

Private Sub TextBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TextBox8.SelectedIndexChanged

        If Me.TextBox8.Text = "KUMLU ÇAKIL" Then

            Me.TextBox9.Text = "GM"



        ElseIf Me.TextBox8.Text = "SİLTLİ ÇAKIL" Then

            Me.TextBox9.Text = "GW -GP"

        ElseIf Me.TextBox8.Text = "KİLLİ KUMLU ÇAKIL" Then

            Me.TextBox9.Text = "GC"

        ElseIf Me.TextBox8.Text = "ÇAKILLI KUM" Then

            Me.TextBox9.Text = "SW-SP"

        ElseIf Me.TextBox8.Text = "SİLTLİ ÇAKILLI KUM" Then

            Me.TextBox9.Text = "SM"

        ElseIf Me.TextBox8.Text = "KİLLİ KUM" Then

            Me.TextBox9.Text = "SC"

        ElseIf Me.TextBox8.Text = "SİLTLİ KİL" Then

            Me.TextBox9.Text = "CL"

        ElseIf Me.TextBox8.Text = "ORGANİK SİLT" Then

            Me.TextBox9.Text = "OL"

        ElseIf Me.TextBox8.Text = "İNORGANİK SİLT" Then

            Me.TextBox9.Text = "MH"

        ElseIf Me.TextBox8.Text = "İNORGANİK KİL" Then

            Me.TextBox9.Text = "CH"

        ElseIf Me.TextBox8.Text = "ORGANİK KİL" Then

            Me.TextBox9.Text = "OH"

        ElseIf Me.TextBox8.Text = "TURBA" Then

            Me.TextBox9.Text = "PT"

        ElseIf Me.TextBox8.Text = "DOLGU" Then

            Me.TextBox9.Text = "DOLGU"

        End If

'----------------Eklenen kısım---------------------------------------------------

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



        baglanti.Open()

        Dim komut As New OleDb.OleDbCommand("SELECT * FROM SONDAJBİLGİLERİ", baglanti)



        Dim oku As OleDb.OleDbDataReader

        oku = komut.ExecuteReader()

        While oku.Read()

            If Me.TextBox1.Text = oku(5) Then Me.TextBox10.Text = oku(9)

        End While

        baglanti.Close()



'----------------------------------------------------------------------------------







    End Sub