[vb2010]

السلام عليكم
يوجد فى الفورم combobox اريد تعبئته بالبيانات من جدول و هذا هو الكود و مع ذلك لا ينفذه

كود :

Imports System.Data.SqlClient

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim Con As String = ("data source=T-PC\SQLEXPRESS;initial catalog=daccount;integrated security=true")
       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       da = New SqlDataAdapter("select user_id from user", Con)
       da.Fill(dt)
       Combo.DataSource = dt
       Combo.DisplayMember = "user_id"
   End Sub
End Class