تکس باکس autocomplate

[look20]

با سلام و خسته نباشید خدمت دوستان یه تکس باکس که قابلیت Autocomplet داشته باشه رو از سایت دانلود کردم و به اون یک پایگاه داده ارتباط دادم فقط یه مشکل دارم اینکه در هنگام تایپ به این شکله که فقط از ابتدای رکورد جستجو میکنه
مثال توی این دوتا رکورد
رکورد :جوشکار و تعمیرکار
رکورد :تعمیرکار

وقتی کلمه "تعمیر" تایپ میشه فقط دومی رو نشون میده
من میخام هر رکوردی که توش کلمه تعمیر باشه هم پیدا بکنه فرقی نکنه ابتدای کلمه باشه یا هرجای کلمه
باتشکر

[naeim_1369]

سلام،
دوست عزیز ، میتونی بجای InStr از دستور Like استفاده کنی
به این صورت

For i = 0 To List1.ListCount
If List1.List(i) Like "*" & Text1.Text & "*" Then
List2.AddItem List1.List(i)
List2.Visible = True
End If
Next