Dim baglan As New Connection
Dim rs As New Recordset
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
strSorgu = "select * from [personel] WHERE personel.id > 0"
If Len(Trim(ComboBox1.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.cinsiyet LIKE '" & ComboBox1.Text & "%'"
If Len(Trim(TextBox2.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.tckn LIKE '" & TextBox2.Text & "%'"
If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"
If Len(Trim(TextBox4.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.soyad LIKE '" & TextBox4.Text & "%'"
rs.Open strSorgu, baglan, adOpenKeyset, adLockPessimistic
ListBox1.ColumnCount = rs.Fields.Count
If rs.RecordCount <> 0 Then ListBox1.Column = rs.GetRows Else ListBox1.Clear
rs.Close
baglan.Close
ara butonunun kodunu aşağıdaki gibi düzenleyip dener misiniz?