[سعود]

اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.

كود :

SearchResultCbB1.Items.Clear()
       Dim mysql As String = "[Fname]='" & SearchTB1.Text & "'"
       myrow = dt.Select(mysql)
       For r As Integer = 0 To myrow.Count - 1
           SearchResultCbB1.Items.Add(myrow(r)(1))
       Next

وضمن حدث SearchResultCbB1_SelectedIndexChanged

كود :

       TextBox4.Text = myrow(sender.selectedindex)(1)
       TextBox5.Text = myrow(sender.selectedindex)(2)
       SearchDateDTP.Value = CDate(myrow(sender.selectedindex)(3))
       Dim pbyte() As Byte = myrow(sender.selectedindex)(4)
       Dim ms As New MemoryStream(pbyte)
       PictureBox2.Image = Image.FromStream(ms)

نسيت ان اقول ان المتغير myrow انقل تعريفه ليكون عام على الفورم.