سوال: آپدیت لیست combobox در حالت dropdown شدن

کد HTML:

            Dim C As New SqlCoection(CoectionString)
            C.Open()
            Dim cmd As New SqlCommand("SELECT * FROM Tbl WHERE (tbl.Q=@Q) ", C)
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@Q", radTextBox1.Text.Trim)
            Dim SDA As SqlDataAdapter = New SqlDataAdapter(cmd)
            Dim DS As New DataSet
            SDA.Fill(DS)
            Dim SDR As SqlDataReader = (cmd.ExecuteReader)
            With radDropDownList1
                .Items.Clear()
                Do While SDR.Read
                    .DataSource = DS
                    .DataMember = SDR.Item("X1")
                    .ValueMember = SDR.Item(X11")
                Loop
            End With
            C.Close()