Vaciar drop down list si no hay datos

[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