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

[hrj1981]

با سلام
دوستان من تو برنامه ام combobox های زیادی باید استفاده کنم که اطلاعات لیست های اونهام به صورت لحظه ای آپدیت میشه
من تو vb6 خیلی راحت تو متد dropdown با یک رکودست و حلقه اطلاعات ایست ها رو آپدیت میکردم
اما الان تو vb.net به مشکل برخوردم (البته از کم سوادی بندست)
نمونه کد خودم رو میزارم اساتید ایراد بنده رو برطرف کنند

Dim Cnn As New SqlConnection(ConnectionString)
Cnn.Open()
Dim cmd As New SqlCommand("SELECT * FROM Tbl WHERE (tbl.Q=@Q) ", Cnn)
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
Cnn.Close()