Sn:sedat76
Örneği aldığınız yerde sadece bir kritere göre listeleme yapmaktadır.Yani sadece iki tarih arasınını listeler.Eğer çoklu kriter eklemeniz gerekirse İf / Else arasına istediğiniz kadar kriter belirliyebilirsiniz.Aşağıdaki Kodları inceleyip kendinize göre uyarlarsınız.

Dim Kriter As String

    Adodc1.Refresh

   

'Birinci Kriter Adı ve Soyadına göre arama yapar.



        If Kriter = "" Then

            Kriter = "Adi_Soyadi='" & txtadisoyadi.Text & "'"

        Else

            Kriter = Kriter & " And Adi_Soyadi='" & txtadisoyadi.Text & "'"

        End If

    End If

    

'İkinci Kriter Tc Kimlik Nosuna göre arama yapar.



    If txtkimlikno.Text <> "" Then

        If Kriter = "" Then

            Kriter = "Tc_Kimlik_No='" & txtkimlikno.Text & "'"

        Else

            Kriter = Kriter & " And Tc_Kimlik_No='" & txtkimlikno.Text & "'"

        End If

    End If

    

'Üçüncü Kriter Bulunduğu Şehire göre arama yapar.



    If txtsehir.Text <> "" Then

        If Kriter = "" Then

            Kriter = "Sehir='" & txtsehir.Text & "'"

        Else

            Kriter = Kriter & " And Sehir='" & txtsehir.Text & "'"

        End If

    End If



    With Adodc1.Recordset

        .Filter = Kriter

        If .RecordCount > 0 Then .Update

    End With

    

    Set VSFlexGrid1.DataSource = Adodc1

Public Function Suz()

[TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%' and [EGITIM_YILI] like '" & TxtYil.Text & "%' and [DONEM] like '" & TxtDonem.Text & "%' and [SINIF] like '" & TxtSinif.Text & "%'"

If LblSorgu.Caption = "Kursiyer" Then

Call Kursiyer

    AdodcKursiyer.RecordSource = "Select * From TBL_KIMLIK where  [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"

    AdodcKursiyer.Refresh

ElseIf LblSorgu.Caption = "Egitimci" Then

Call Egitimci

    AdodcEgitimci.RecordSource = "Select * From TBL_KIMLIK where  [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"

    AdodcEgitimci.Refresh

ElseIf LblSorgu.Caption = "Yonetici" Then

Call Kursiyer

    AdodcKursiyer.RecordSource = "Select * From TBL_KIMLIK where  [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%' and [EGITIM_YILI] like '" & TxtYil.Text & "%' and [DONEM] like '" & TxtDonem.Text & "%' and [SINIF] like '" & TxtSinif.Text & "%' and [EGITIM_TURU] like '" & TxtEgitimturu.Text & "%'"

    AdodcKursiyer.Refresh

ElseIf LblSorgu.Caption = "Ders" Then

Call Ders

    AdodcDers.RecordSource = "Select * From TBL_DERS where  [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"

    AdodcDers.Refresh

End If

End Function