جست و جوی پویا با فست ریپورت

[pandasoft]

با سلام خسته نباشید خدمت دوستان

من یک برنامه نوشتم با استفاده VB6 و فست ریپورت که نیاز هست در اون با تغییر متن تکست باکس نتایج ریپورت هم تغییر کنه و نمایش داده بشه .کدی که نوشتم تا زمانی که سرعت تغییرات تکست باکس ! (یعنی سرعت تایپ کاربر ) کم باشه به خوبی کار میکنه اما زمانی که سرعت بیشتر بشه برنامه خطای زیر رو میده .

Untitled.png

سورس برنامه هم به شکل زیر هست.

Private Sub Text1_Change()    On Error Resume Next

DoEvents

frp.EngineOptions.SilentMode = simMessageBoxes

    frp.LoadReportFromFile App.Path & "\Test.fr3"

    

    Dim Ado As New TfrxADODatabase

    Dim q As New TfrxADOQuery





    Set Ado = frp.FindDatabase("Ado")

    Set q = frp.FindDatabase("qry")





    '------------------------------------------------------------------

    q.Query = "Select * from table1 where family like '" & Text1 & "%'"

    '------------------------------------------------------------------

    

    Ado.Connected = False

    Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';  User ID=Admin;Data Source=Test.mdb;Mode=Share Deny None;Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"

    Ado.LoginPrompt = False

    Ado.Connected = True

    frp.PreviewOptions.RTLPreview = True

    frp.PrepareReport True









    frv.Report = frp

    frv.Unlock

End Sub

حالا اگه دوستان لطف کنن که راحلی پیشنهاد بدن به غیر از این کد یا راه حل مشکل رو بگن ممنون میشم

یا علی ممد