Private Sub DDLload()
With DDLheader
.DataSource = dt
.DataTextField = "textHeader"
.DataValueField = "textHeader"
.DataBind()
End With
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Label14.Text = ""
Me.Label14.Text = Me.DDLheader.SelectedItem.Value
End Sub