مشکل در قید گداری روی dropdownlist

[a_123123123123]

سلام من میخوام dropdownlist روبه یه فیلد تو بانک مقید کنماز دستورای زیر هم استفاده میکنم
Sub page_load()
If Not IsPostBack Then
Dim con As SqlConnection
Dim cmdselect As SqlCommand
Dim dtr As SqlDataReader
con = New SqlConnection("Data Source=FRIDON\SQLEXPRESS;Initial Catalog=az;Integrated Security=True")
con.Open()
cmdselect = New SqlCommand("select dore from dars", con)
dtr = cmdselect.ExecuteReader
dore.DataSource = dtr
dore.DataTextField = "dore"
dore.DataBind()
dtr.Close()
con.Close()
End If
End Sub
اگه تو سرس برنامه بنویسم ار میکنه ولی وقتی تو حالت difult.aspx.vb میبرم کار نمیکنه؟مشکل کجایت؟