sub Page_Load(sender as object, e as eventargs)
eta.items.clear
interesse.items.clear
dim strConn as string
strConn="provider=microsoft.jet.oledb.4.0; data source=C:\Inetpub\wwwroot\Corso\DB_CORSO.mdb;"

dim Conn as new OleDbConnection(strConn)
Conn.open

dim Sql as string

Sql="select Descrizione from Eta_Utenti"
dim Mysql as new OleDbCommand(Sql,Conn)
dim Rs as OleDbDataReader

Rs=Mysql.ExecuteReader()

while Rs.read()
eta.Items.add(Rs.item(0))
end while
Rs.close

Sql="select Descrizione from Interessi_Utenti"
dim Mysql1 as new OleDbCommand(Sql,Conn)
dim Rs1 as OleDbDataReader
Rs1=Mysql1.ExecuteReader()
while rs1.read()
interesse.Items.add(rs1.item(0))
end while
Rs1.close
Conn.close
end sub

sub Inserimento(sender as object, e as eventargs)
dim strConn as string
strConn="provider=microsoft.jet.oledb.4.0; data source=C:\Inetpub\wwwroot\Corso\DB_CORSO.mdb;"

dim Conn as new OleDbConnection(strConn)
Conn.open

dim Sql_Select as string
dim Sql_Insert as string
dim valore as string
dim v_Eta,v_Interesse as string

' il mio problema e' che non mi prende il testo o valore della mia selezione.
Ho provato molto ma non ci sono riuscito!!!
v_Eta=eta.SelectedItem.Value

response.write(v_Eta)
response.end

'ringrazio tutti!!