strSQL = strSQL & "WHERE (([Tablo1].[adı]) Like '" & txtSearchString & "*') "

Üstteki kodu aşağıdaki ile değiştir.

    strSQL = strSQL & "WHERE (([Tablo1].[adı]) Like '*" & txtSearchString & "*') "

Bence bu arama mevzusunu iptal edip aşağıdakini kullanmalısın.

Form Üzerinden Veri Arama