Uygulamadaki kodlar yukarıda yazdığım gibi. Ancak sizin verdiğiniz kodları o kodların içerisinde neyin yerine veyahut nereye ilave edeceğimi anlamadım. Gönderdiğiniz kodlarda Function başında direk End If yazıyor IF ile başlayan kısım yok diye hata veriyor. Yani bu kodları çalıştırmayı beceremedim. Uygulama kodları içerisinde değişiklik yapabilirmisiniz ?

Sn:chevy
Fonction başındaki if hatası düzeltilmiştir.Kodlardada görüldüğü üzere Combobox1 ve Combobox2 kod içerisinde tanımlanmıştır.Sadece Comboboxların tıklama olayına fonctionun çalışması için gerekli kodların yazılması onuda yukarıda zaten verdim (Call SQL) burada üzerinde duracağınız LİKE operatörüdür.

Uygulamada Access veritabanından verileri sanaltablo ile DataGride aktarıyorum. Tüm veriler DataGridde gözüküyor. Sonra Private Sub doldur() ile de verileri Combobox a aktarıyorum. Combobox tan veriyi seçtiğim zaman datagridin seçtiğim verilere göre görüntülenmesi için gönderdiğiniz kodları uyguladım.

Public Function SQL() ile başlayıp projedeki veritanındaki ID lere göre değiştirdim.

Private Sub Combobox1_Click() ve Private Sub Combobox2_Click() içerisinide Call SQL()
yazdım.

Ancak çalıştırdığımda Adodc1 bildirilmemiş. hatası alıyorum. Nerede ne eksik ne yanlış. Acemilik bilmiyorum nasıl yapacağım lütfen yardım.....

Sn:chevy
Adodc1 verdiğim kodda veri tabanına bağlantı nesnesinin adı siz orayı kendi bağlantınıza göre düzenliyeceksiniz.

Kusura bakmayın acemiliğimden dolayı dediklerinizi yapamıyorum. Accesse nasıl bağlantı kurduğumu kodlarda belirttim. Ne yapacağımı anlamadım lütfen yardım edin. Çok uğraştım bunu yapmaya ama olmuyor.

Sn:chevy
İlk önce Komponentler bölümünden Adodc nesnesini eklemeniz gerekir.Yada Data1 bağlantı nesnesi ilede yapabilirsiniz ama Adodc Nesnesini öncelikle öneririm sonrada data bağlantınızı aşağıdaki şekilde yapınız bende VB.NET olmadığı için örnek üzerinde yapamıyorum bu sebeple sadece size yol gösterebilirim.

Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\ VeriKayit.mdb"

    Adodc1.CommandType = adCmdText

    Adodc1.RecordSource = "select * from Kasa ORDER BY ID"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount <> 0 Then

    End If

    Set DataGrid1.DataSource = Adodc1