Private Sub btn_arama_Click()

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(TextBox3.Value & vbNullString)) > 0 Then

strSorgu = strSorgu & " AND personel.ad='" & TextBox3.Text & "'"

Else

strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"

End If

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

End Sub