[حريف برمجة]

وعليكم السلام

كود :

 Dim dp As New SqlDataAdapter("select id,name from Table1", conn)

        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds)

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "name"
        ComboBox1.ValueMember = "id"

        dp.Dispose()