فيلتر کردن اطلاعات

با سلام به تمامی دوستان
در برنامه پيوست من برای فيلتر کردن اطلاعت از دستور Where و Like به شکل برنامه پيوست استفاده کردم ولی متاسفانه اجراء نمیشه اگه ممکنه کمک کنيد

برنامه به صورت پيوست مجدداً اصلاح کردم اما بازهم به نتيجه نرسيد

دوست عزیز کد رو اصلاح کردم

    Dim i As Integer

    Dim t As String

    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Esfand.mdb;"

    Cnn.CursorLocation = adUseClient

    

    t = "00015110"

    Tbl.Open "Select * From Tbl1 where [No] like '%" & t & "%'", Cnn, adOpenDynamic, adLockBatchOptimistic

    For i = 1 To Tbl.RecordCount

        Debug.Print "No = "; Tbl.Fields("No");

        Debug.Print "Code = "; Tbl.Fields("Code");

        Debug.Print "Time = "; Tbl.Fields("Time")

    Next

با تشکر از شما
ولی دوست عزیز اين هم عمل نکرد

بنده تست کردم و جواب داد

دوست عزیز به خط زیر خوب دقت کنید

کلمه No جزو کلمات کلیدی اکسس می باشد باید اون رو داخل کروشه بزاری

من چند بار تست کردم درست بود و 24 رکورد بر می گردوند

    Tbl.Open "Select * From Tbl1 where [No] like '%" & t & "%'", Cnn, adOpenDynamic, adLockBatchOptimistic