[اسامه الهرماوي]

السلام عليكم...
هذا كود تعبئة الكمبوبوكس من الأكسس بدون تكرار:
-ضعة في حدث تحميل الفورم.

كود :

datatabletype.Clear()
       DataAdaptertype = New SqlDataAdapter("Select نوع_العقارات_الرئيسية FROM kin Group By نوع_العقارات_الرئيسية", contype)
       DataAdaptertype.Fill(datatabletype)
       If datatabletype.Rows.Count > 0 Then
           النوع.DataSource = datatabletype
           النوع.DisplayMember = "نوع_العقارات_الرئيسية"
       Else
           النوع.DataSource = Nothing
       End If

وهذا كود البحث بأي جزء من الكلمة:
-ضعة في زر او في الكمبوبكس.

كود :

DataAdapter = New OleDbDataAdapter("Select * From الجدول Where الحقل Like '%" & Trim$(TextBox1.Text) & "%'", con)
           DataSet.Clear()
           DataAdapter.Fill(DataSet, "الجدول")
           DataGridView1.DataSource = DataSet
           DataGridView1.DataMember = "الجدول"