[محمود رغمان]

استخدم BindingSource

Dim ODC1 As OleDbCommand = New OleDbCommand(" SELECT * FROM School ", Conl(

DA1 = New OleDbDataAdapter(ODC1(
Dim BUILER1 As New OleDbCommandBuilder(DA1(
DA1.Fill(DS1, "S1")
BS1 = New BindingSource(DS1, "S1")

'DGV1.DataSource = BS1

'كود وصل كمبوبكس بقاعدة البيانات
Combobox.DataSource = BS1
'كود وصل حقل الاسماء لعرضه في كمبوبكس
Combobox.DisplayMember = "Name_S"
مع الحفظ والتحديث