كود تعبئة الكومبو بوكس من جدول بقاعدة بيانات اكسيس

اتفضل هذا الكود

Dim cn As New OleDbConnection("your connection")
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable()

      cn.Open()
      da.SelectCommand = New OleDbCommand("select * from students", cn)
      da.Fill(dt)

      ComboBox1.DataSource = dt
      ComboBox1.DisplayMember = "studentname"
      ComboBox1.ValueMember = "studentid"
  cn.Close()

معذرة هناك خطأ يظهر عندي هل ممكن مثال عملي من فضلك

الف شكر الكود الآن يعمل بكفاءة كانت هناك مشكلة بسيطة و حللتها الف شكر لك اخي اسامة

العفو اخوي

وان شاء الله بالتوفيق