[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 

إخواني عند كومبوبوكس قمت بتعبئته من قاعة البيانات SQL  ولكن عند عرض محتويات الكومبوبوكس تعرض مرتبة تريباً أبجدياً وأنا أريدها أن تظهر حسب ترتيبها في قاعدة البيانات 



وهذا هو الكود المستخدم في عملية التعبئة 



لكم جزيل الشكر 

دمتم بود

 

    Try

            Dim dr As SqlDataReader

            ComboBox1.Items.Clear()

            Dim cmdcom As New SqlCommand

            cmdcom.Connection = Sqlcon

            Sqlcon.Open()

            cmdcom.CommandText = ("select distinct Emploment from Employment_Table")

            dr = cmdcom.ExecuteReader

            While dr.Read()

                ComboBox1.Items.Add(dr("Emploment"))

            End While

            Sqlcon.Close()

        Catch ex As Exception

        End Try