[عاشق الرسول]

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

كود :

   Private Sub TXT_FATH_Leave(sender As Object, e As System.EventArgs) Handles TXT_FATH.Leave

       Dim dr As OleDb.OleDbDataReader

       Dim cmd As New OleDb.OleDbCommand("select STU_ID,STU_NAM,FATH_COD,FATH_MOB1,FATH_MOB2,RELA from STU_TBL where STU_FATH LIKE '%" & TXT_FATH.Text & "%'", con)
       con.Open()
       dr = cmd.ExecuteReader
       dr.Read()

       For I As Integer = 0 To DGV_STU.Rows.Count - 1
           TXT_N_MOB.Text = dr("FATH_MOB1")
           TXT_N_MOB2.Text = dr("FATH_MOB2")
           CMB_REL.Text = dr("RELA")
           TXT_FATH_ID.Text = dr("FATH_COD")

           DGV_STU.Rows(I).Cells("ST_ID").Value = dr("STU_ID")
           DGV_STU.Rows(I).Cells("STU_NAM").Value = dr("STU_NAM")
       Next
       dr.Close()
       con.Close()

   End Sub