Vaciar drop down list si no hay datos

[Ayesha]

¡Hola!

Tengo tres drop down list, para Tipo, Marca y Modelo, pero existen artículos que no tienen modelo. Los he programado de tal forma que al seleccionar algo en un control, se llenan los otros, pero en el caso del modelo tengo un problema.

Cuando no hay modelo, debería limpiar el drop down list, le he asignado como data source=nothing, pero no responde.

Mi código es algo así:

Private Sub LlenarModelo()
Dim dr As SqlClient.SqlDataReader
Dim objTipo As New DLLConsulta.Consulta
dr = objTipo.LlenarModelo(cbxTipo.SelectedItem.Text, cbxMarca.SelectedItem.Text, "%")
If dr.HasRows Then
cbxModelo.DataSource = dr
cbxModelo.DataTextField = "Modelo"
cbxModelo.DataBind()
Else
cbxModelo.DataSource = Nothing
cbxModelo.DataTextField = "Modelo"
cbxModelo.DataBind()
End If
End Sub

¿Podrían ayudarme? La idea es que se muestre en blanco.

Muchas gracias

[Andres95]

Código:

Private Sub LlenarModelo()
Dim dr As SqlClient.SqlDataReader
Dim objTipo As New DLLConsulta.Consulta
dr = objTipo.LlenarModelo(cbxTipo.SelectedItem.Text, cbxMarca.SelectedItem.Text, "%")

'Vaciar elementos del combo Modelo.
cbxModelo.Items.Clear 

'Solo si hay elementos se vuelve a cargar.
If dr.HasRows Then
cbxModelo.DataSource = dr
cbxModelo.DataTextField = "Modelo"
cbxModelo.DataBind()
End If
End Sub

[Ayesha]

Muchísimas gracias

[pavr1]

mae si no hay datos solo dale cbxModelo.Items.Clear() y listo