أسأل عن كيفية عرض نتائج البحث في List

    Dim DB As Connection
    Dim REC As Recordset


    'After Open Connection

REC.Open "Select * From Table ", DB

With REC

    Do Until REC.EOF
    
        'add item
            
            List1.AddItem !Field               ' 1 Way
''            List1.AddItem REC("Field").Value ' 2 Way

    DoEvents
        .MoveNext
    Loop

.Close

End With

الأخ الكريم prof_1982

هذه الطريقة التي ذكرتها تقوم بملأ الـ List box بسجل كامل من قاعدة البيانات , لكني أريد عرض نتائج لعملية البحث عن كلمة مثلا أو جملة داخل الـ list box

علما بأني أستخدم هذا الكود في عملية البحث

gFind = Text1.Text

'

If Trim(gFind) = "" Then Exit Sub

'

gBookMark = rs.Bookmark

'

rs.Find "name LIKE '" & Trim(gFind) & "%'", 0, adSearchForward, 1

'

If rs.EOF Then

rs.Bookmark = gBookMark

Exit Sub

End If

الرجاء من الإخوة المساعدة بسرعة

وجزاكم الله خيرا