[DR.YASER]

تفضل أخى .. و لو لديك أى سؤال منتظرك 

كود :

Dim StrVar as String
Dim rd As oledbDataReader
Dim cmd as New oledbcommand


cmd.commandtext = "Select ((اسم الحق الرقمى الذى ترغب فى البحث عنه)) from ((اسم االجدول)) where ((محدد البحث و هو حقل الكود مثلا بالجدول)) = @ID"
cmd.connection = conn
rd = cmd.ExecuteReader

if rd.read then
''' و هنا فى السطر التالى سيعطيك متغير به نتيجة البحث الذى ترغغب بها و يمكنك وضعها فى مربع نص أو كومبو بوكس أو غيره
   StrVar = rd.GetString(1)

end if
rd.close

---

و هذا كود البحث باستخدام الكومبوبوكس داخل عمود id

كود :

dim combo_id as string = combobox1.text
           Dim sql1 As String = "SELECT * FROM اسم الجدول WHERE عمود الآى دى= '" & combo_id & " '"
           With conn
               If .State = ConnectionState.Open Then .Close()
               .Open()
           End With
           Dim da1 As Common.DbDataAdapter = New OleDb.OleDbDataAdapter(sql1, conn)
           Dim ds1 As DataSet = New DataSet
           da1.Fill(ds1, "اسم الجدول")
           Dim dt1 As DataTable = ds1.Tables("اسم الجدول")
           Dim row1 As DataRow
           For Each row1 In dt1.Rows
               TextBox1.text= row1("حقل كذا")
               TextBox2.text=  row1("حقل كذا و كذا")
           Next rowx10