Llenar un DropdownList desde una consulta SQl ASP.Net

  Private Sub cargalistaño ()
        Dim dt As New DataTable
        Dim DataReaderidt Como SqlDataReader
        Cmdincluir Dim = Nuevo SqlClient.SqlCommand ()
        Dim idtarea As String = ""
        Dim cmdcargar Como SqlClient.SqlCommand
        Dim MiDataReader Como SqlDataReader
        Dato Dim As String
        Dim IdPlan As String
        IdPlan = BuscaAño ()
        conex.Close ()
        Si coneccion_BD ("Usuario", "contraseña") = 1 Entonces
            conex.ConnectionString = strconexion
            Dim Comando1 As New SqlCommand ("intruccion de seleccionar aqui" '", conex)
            conex.Open ()
            DataReaderidt = Comando1.ExecuteReader ()
            Si DataReaderidt.HasRows = True Luego
                Do While DataReaderidt.Read = True
                    Para v = 0 Para DataReaderidt.FieldCount - 1
                        idtarea = idtarea & "'" & DataReaderidt (0) & "'"
                    Próximo
                Bucle
                Dim pelotas As Long
                no molestar = Len (idtarea) - 1
                End If
            DataReaderidt.Close ()
            conex.Close ()
                cmdcargar = Nuevo SqlClient.SqlCommand
            Con cmdcargar
              
    End Sub