kopyala yapıştır yaparsan öyle olur orada bir text kutusu var urun_id ve urun_ad isminde ama sende yok, bu sebepten hata veriyor. zaten adamın yazdığı kod da sakat..

sorgun v.s. doğruysa bir tane listbox oluştur ismi ListBox2 olsun. kodunu şu şekilde yaparsan çalışması lazım. Ama sorgun ve veritabanı konumu v.s. hep doğru olması gerekiyor. Internetten bulduğun kod ile senin veritabanının yapısı aynı mı bu önemli..

  Dim baglanti As New OleDb.OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\bt002\Documents\Visual Studio 2010\Projects\WindowsApplication2\urunler.accdb")
        Dim yonetici As New OleDb.OleDbCommand
        Dim okuyucu As OleDb.OleDbDataReader
        yonetici.Connection = baglanti
        yonetici.CommandText = "SELECT * FROM urunler WHERE (urun_pdf='" + ListBox1.SelectedItem + "' )"
        baglanti.Open()
        okuyucu = yonetici.ExecuteReader
        While okuyucu.Read
            ListBox2.Items.Add(okuyucu(1))
        End While
        baglanti.Close()
        yonetici.Dispose()
        okuyucu.Close()