Menampilkan Isi Field-Field Tabel ke Text Box Setelah Isi Kombo Box diklik

    Sub kombo_mobil_klik()

        Cmd = New Odbc.OdbcCommand("SELECT * FROM mobil WHERE kd_mobil='" & cmb_kd_mobil.SelectedItem & "'", Conn)

        Rd = Cmd.ExecuteReader

        Rd.Read()

        If Rd.HasRows = True Then

            txt_tipe_mobil.Text = Rd.Item(1)

            txt_tarif.Text = Rd.Item(2)

        End If

    End Sub