[ابراهيم ايبو]

السلام عليكم اخي الكريم
مع موفور الشكر لاخي عبد العزيز البسكري على اجابته لك
وزيادة في الايضاح قم بانشاء هذا الصب وغير اسم الجدول لما هو عندك وكذلك اسم الحقل الذي تريد اظهاره في الكومبوبزكس 

كود :

 ' انشئ هذا الصب
   Public Sub fillCombo(ByVal cmb As ComboBox)
       'املاء الكومبوبوكس
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("Select*from اسم الجدول ", con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           cmb.DataSource = dt
           cmb.DisplayMember = "اسم الحقل الذي تريد ظهوره"
           cmb.ValueMember = "ID"
       Else
           cmb.DataSource = Nothing
       End If
   End Sub

ثم قم باستدعاء هذا الصب في حدث فورم لود

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       fillCombo(ComboBox1)
       ComboBox1.SelectedIndex = 0
   End Sub

لاحظ اننا كتبنا اسم الكومبوبوكس الذي نريد تعبئته بين قوسي الدالة وهو الباراميتر الذي تطلبه الدالة