If Not Page.IsPostBack Then

            CaricaStato()

End If

Sub CaricaStato()
        Dim MYSQL As String
        Dim MYDS As DataSet
        Dim MYDA As OleDbDataAdapter

        Dim Conn As New Data.OleDb.OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
        Conn.Open()

        MYSQL = "SELECT *FROM tab_stato ORDER BY nome_stato ASC"

        MYDA = New OleDbDataAdapter(MYSQL, Conn)
        MYDS = New DataSet
        MYDA.Fill(MYDS, "tab_stato")

        DDLStato.DataSource = MYDS
        DDLStato.DataMember = "tab_stato"
        DDLStato.DataBind()

        Conn.Close()

    End Sub