Sub filtre()

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")



Call baglanti



If ComboBox1.Text <> Empty And ComboBox2.Text = Empty And ComboBox3.Text = Empty Then

    rs.Filter = "[CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'"



ElseIf ComboBox1.Text <> Empty And ComboBox2.Text <> Empty And ComboBox3.Text = Empty Then

    rs.Filter = " [CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'" & _

             "and [ADI]          like '" & Mid(ComboBox2.Text, 1, Len(ComboBox2.Text)) & "%'"

            

ElseIf ComboBox1.Text <> Empty And ComboBox2.Text <> Empty And ComboBox3.Text <> Empty Then

    rs.Filter = " [CALISAN_KODU] like '" & Mid(ComboBox1.Text, 1, Len(ComboBox1.Text)) & "%'" & _

             "and [ADI]          like '" & Mid(ComboBox2.Text, 1, Len(ComboBox2.Text)) & "%'" & _

             "and [DOGUM_TARIHI] like '" & Mid(ComboBox3.Text, 1, Len(ComboBox3.Text)) & "%'"

            

End If



    With Application

        .ScreenUpdating = False

        .EnableEvents = False

    End With

    On Error Resume Next

            ListBox1.Column = rs.GetRows



End Sub

Ykarıdaki kodu ekteki acces dosyasındaki açılan kutulara nasıl uyarlayabilirim.(Ek dosyayı ( VERİ) önceki mesaja ekleyebildim.)