[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

ضع هذا الكود بأي مكان بالفورم ..

كود :

 Private Sub Fill_Name_Combobox()
       Dim Sql_Str As String
       Dim InfoAdapter As OleDbDataAdapter
       Dim InfoTable As DataSet
       ComboBox1.Items.Clear()
       Sql_Str = "Select DISTINCT Name From Table1"
       InfoAdapter = New OleDbDataAdapter(Sql_Str, Conne_2019)
       InfoTable = New DataSet
       InfoTable.Clear()
       InfoAdapter.Fill(InfoTable, "Table1")
       For Each rw As DataRow In InfoTable.Tables("Table1").Rows
           ComboBox1.Items.Add(rw(0).ToString())
       Next
   End Sub

ثمّ بالفورم لودْ .. أكتب ما يلي ..

كود :

()ِCall Fill_Name_Combobox

و إذا أردت إظهار الأسماء بتكرارها إذا كانت مكرّرة .. فقط قم بحذف كلمة

DISTINCT

تحياتي