Sub Page_Load(Sender As Object, E As EventArgs)
MyConnection = New SqlConnection("***")
If Not (IsPostBack)
Dim MyCommand As SqlCommand
Dim oReader As SQLDataReader
Dim UpdateCmd As String = "SELECT codarti FROM articulos order by codarti"
MyCommand = New SqlCommand(UpdateCmd, MyConnection)
MyCommand.Connection.Open()
oReader = MyCommand.ExecuteReader()
DropDownList1.DataSource = oReader
DropDownList1.DataBind()
MyCommand.Connection.Close()
End If
End Sub