sub AddNews(obj as object, e as eventargs)
    dim dataoggi as string = CStr(Now())
    dim strTitolo as String = tbTitle.Text
    dim strCorpo as String = tbText.Text
    dim intSezione as Integer = lbSec.SelectedItem.Value
    dim dbconn as OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../database/strade.mdb"))
    dim sql as string = "INSERT INTO News (Datains,Titolo,Testo,Sezione) VALUES ('" & dataoggi & "', '" & strTitolo & "', '" & strCorpo & "', '" & intSezione & "')"
    dim dbcomm as OleDbCommand = New OleDbCommand(sql,dbconn)
    dbconn.Open()
    dbcomm.ExecuteNonQuery()  
    dbconn.Close()
    lblSucc.Text="News inserita con successo"
  end sub