下拉列表绑定

下拉列表框里面用数椐库里的"分类"记录进行了绑定:  
  Dim   dr   As   SqlDataReader  
                          dr   =   comm.ExecuteReader  
                          dropdown.DataSource   =   dr  
                          dropdown.DataTextField   =   "分类"  
                          dropdown.DataBind()  
                          dr.Close()  
  comm已经定义好.数椐库的绑定也是正确的.但是我现在要在dropdown   的第一项里面加入"所有类别"且默认为选定的.其后才是数椐库里面的"分类"字段.我该怎么做呢?

-------
Dim   dr   As   SqlDataReader  
                          dr   =   comm.ExecuteReader  
                          dropdown.DataSource   =   dr  
                          dropdown.DataTextField   =   "分类"  
                          dropdown.DataBind()  
                          dr.Close()  
   
  DropDownList1.Items.Insert(0   ,   "所有类别")  
  DropDownList1.SelectedIndex   =   0