پر کردن DropDownList با کد Vb

من میخوام DropDownList رو با کد vb و اتصال به بانک اطلاعاتی پر کنم لطف کنید اگه کدی در این ضمینه دارید در اختیار من بگذارید
:ممنون:

dim con as new sqlconnection(your connection)

dim str as string

str="select * from your table"

dim com as new sqlcommand(str,con)

dim obj as sqldatareader



con.open

obj=com.executereader

dropdownlist1.DataSource = obj

dropdownlist1.DataTextField = "field name"

dropdownlist1.DataValueField = "id"

dropdownlist1.databind

con.close

obj.close