أخي أنا لم أكتب الأكواد، والطلب كان يخص البحث فقط، وما قمت به فقط تنظيم لإجراء البحث فقط.
عموما الآن انتبهت أنك تريد البحث في العمود الثاني وليس الأول.
بدل هذا السطر:
SearchCol = IIf(IsNumeric(TextBox22), 1, 11)
بهذا السطر:
SearchCol = IIf(IsNumeric(TextBox22), 2, 11)
وأعتذر عن المواصلة.