سؤال البحث في الفهارس

السلام عليكم ورحمة الله وبركاته

عندي جدول bk1 فيه فهرس كتاب ويحتوي على حقلين

الحقل wrd ويسجل فيه كل كلمة وردت في الكتاب على حدة مثل ، محمد، جلس،نعم وهكذا...

الحقل pos ويسجل فيه الصفحات التي وردت فيها الكلمة مفرقا بينها بالرمز @ مثل الكلمة محمد وردت في الصفحات ٢@١٢@٣٤@٦٦@٧٥@٢٣٣@٢٤٠

للبحث عن كلمة واحدة الأمر سهل نبحث عنها ثم نسجل جميع الصفحات في مصفوفة

Dim spage() as string

Dim rst as new recordset

rst.open "sélect * from bk1 where wrd = '" & stxt &"'" ,cnx',0,1

spage= split(rst!pos,"@")

وهكذا نملأ المصفوفة بالصفحات التي وردت فيها الكلمة

السؤال المطروح

عندما نبحث على نص متكون من كلمتين فصاعدا

ما هو أفضل وأسرع كود لفعل ذلك

عملت بعض الحيل بالكود ولكنها تسببت في بطء برنامجي خاصة وأنه يحتوي على مئات الكتب