البحث في حقل واضافة الناتج الى ليست بوكس

السلام عليكم

أخ VB786 انا ما بعرف للفيجول بيسك، بس انا راح اكتب الك كيف ممكن تتم الطريقة وانت شوف كيف بتصير معك، واذا ما زبطة بتنتظر احد الخبراء او المشرفين للرد على سؤالك بإجابة صحيحة.

SET RS=CONN.EXECUTE("SELECT FILED1 FROM TABLE WHERE TEXT='"&TEXTBOX1.TEXT&"'")
IF NOT RS.EOF THEN
DO WHILE NOT RS.EOF
combo.additem (RS("FILED1"))
RS.MOVENEXT
LOOP
END IF

مع تحياتي

إذا كان اسم الـ recordSet Rs

    RS.MoveFirst
    RS.Find "[a] = 'K'"
    If Not (RS.EOF) Then
        Combo1.AddItem RS.Fields(0)
    Else
        MsgBox "Not Found"
    End If

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

هل يمكن التوضيح أكثر

فلو فرضنا اسم الداتا (Data1) واسم الريكورد (Table1)

واسم الليست بوكس (Listbox1)

واسم التكست فايل (Text1)

وشكرا لكما

السلام عليكم

اليك هذا ال link به نفس الموضوعالبحث و اضافة الناتج في كمبوبوكس

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

1- MoveFirst لا توجد فيه مشكة

2- MoveLast لا توجد فيه مشكلة

3- MoveNext

4- MovePrevious

والأثنان فيما مشكلة حيث أن الريكورد لا يتغير مع أني كتبت هذا الكود

Private Sub cmdNext_Click()
   SQL = "SELECT DISTINCTROW Quran.Code,  Quran.Category, Quran.VerseNo, Quran.PageNo, Quran.Number From Quran"
   Set Rs = gCurrentDB.OpenRecordset(SQL, dbOpenSnapshot)

Rs.MoveNext
      lblCode.Caption = Rs(0)
      cTitle.Text = Rs(1)
      cCategory.Text = Rs(2)
      cLevel.Text = Rs(3)
      cDes.Text = Rs(4)

End Sub

Private Sub cmdPrevious_Click()
   SQL = "SELECT DISTINCTROW Quran.Code,  Quran.Category, Quran.VerseNo, Quran.PageNo, Quran.Number From Quran"
   Set Rs = gCurrentDB.OpenRecordset(SQL, dbOpenSnapshot)

Rs.MovePrevious
      lblCode.Caption = Rs(0)
      cTitle.Text = Rs(1)
      cCategory.Text = Rs(2)
      cLevel.Text = Rs(3)
      cDes.Text = Rs(4)
End Sub