البحث عن طريق الاسم (الفلتر)

السلام عليكم

عندي مشكلة في هاذا الكود لانني عاملة بحث عن طريق اسم العميل بادخال اول حرفين او 3 احرف من الاسم ثم تاتي النتائج ولكن عند تشغيل هاذا الكود لا ياتي باي معلومات

الرجاء الافاده ولكم جزيل الشكر

Sub Filtername(clientname As String)

Set rstfilter = New Recordset

sql = "select fldid,fldserialnumber,fldpassengername,flddate,fldflighttype,fldflightrout,fldclerk,fldprice from tblflight where fldpassengername like '" & CStr(txtname) & "*'"

With rstfilter

.ActiveConnection = cnncrm

.CursorLocation = adUseClient

.CursorType = adOpenStatic

.LockType = adLockReadOnly

.Open sql

End With

flag = False

End Sub