Dos cosas:
Cita:
Iniciado por univercity 
If Not (IsPostBack)
Dim SelectCmd As String = "select * from vinos where (variedad=@Variedad)"
Dim DS As DataSet......
No pongas la condicion esta dentro del sub del drop ya que estas usando el autopostback y por esto no se ejecuta todo lo que esté dentro de esta condicion
Cita:
Iniciado por univercity Dim SelectCmd As String = "select * from vinos where (variedad=@Variedad)"
Donde llenas la variable variedad? tienes que llenarla para ejecutar la consulta_
variedad=myselect.selectedItem.value.tostring
A ver si ahora funciona y no te preocupes por la paciencia que otras personas de me han ayudado y me ayudan a mi.