Dim con As New Data.OleDb.OleDbConnection(ConfigurationManager.ConnectionStrings("Database").ToString)
con.Open()
Dim cmd As New Data.OleDb.OleDbCommand("INSERT INTO articoli(Descrizione, Importo) VALUES (" & "'" & TextBox2.Text & "'," & "'" & TextBox3.Text & "')", con)
cmd.ExecutoNonQuery()                     'Esegue il comando di inserimento che non restituisce  nulla
cmd.CommandText="SELECT @@IDENTITY as IDrestituito"
Response.Write(cmd.ExecuteScalar().ToString())  'Execute scalar restitisce la prima colonna della prima riga di una query, siamo nel caso di una SELECT @@IDENTITY
con.Close()