[علوش]

اخواني عند البحث بأول حرف يكون البحث بطي جدا بحيث عند كتابة حرف مثلا في التكست (ب) يأخذ وقت لكي يتم تنفيذ البحث
لا ادري ها المشكلة من الكود ارجو المساعدة
هذا هو الكود المستخدم
If RS.State = 1 Then RS.Close
Dim str3 As String
str3 = Text2.Text
RS.Open "select * from Items where ItmDesA like '" & str3 & "%'", rb, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
I = I + 1
grid.Rows = I + 1
grid.TextMatrix(I, 1) = RS("BarCod1")
grid.TextMatrix(I, 2) = RS("ItmDesA")
grid.TextMatrix(I, 3) = RS("UntPri1")


RS.MoveNext
Loop
ارجو الافادة