i've written following code but the problem is it doesnot change the value "txtModelCode" everytime; another value is selected from the dropdown list

VB Code:
  1. Private
  2.  
  3. Sub dropModels_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dropModels.SelectedIndexChanged
  4.  
  5. Dim objEquipment As BusinessLogicLayer.Equipments = Equipments.GetModelCode(dropModels.SelectedItem.Value)
  6. txtModelCode.Text = objEquipment.ModelCode
  7.  
  8.  
  9. End Sub

while the values are loaded during page load

VB Code:
  1. Private
  2.  
  3. Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4. If
  5.  
  6. Not Page.IsPostBack Then
  7. dropModels.DataSource = Equipments.GetAllModels
  8.  
  9. dropModels.DataTextField = "Model"
  10.  
  11. dropModels.DataBind()
  12.  
  13. Dim
  14.  
  15. objEquipment As BusinessLogicLayer.Equipments = Equipments.GetModelCode(dropModels.SelectedItem.Value)
  16. txtModelCode.Text = objEquipment.ModelCode
  17.  
  18. End
  19.  
  20. If
  21.  
  22. End Sub