[محمد خيري]

شكرا اخي rnmr على المساعدة كيف يمكن اضبطها على هذا الكود ما فهمت عليك اخي

كود :

   Sub fillcombo()
       Try
           Dim CN As New SqlConnection(cs)
           CN.Open()
           adp = New SqlDataAdapter()
           adp.SelectCommand = New SqlCommand("Select distinct (user_name) from table_users ", CN)
           ds = New DataSet("ds")
           adp.Fill(ds)
           dtable = ds.Tables(0)
           ComboBox1.Items.Clear()
           For Each drow As DataRow In dtable.Rows
               ComboBox1.Items.Add(drow(0).ToString())
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

اريد دايما السطر الاول ما يظهر بالكومبوبكس و شكرا تبدا النعبئة من السطر الثاني