Dim ConnLastID As SqlConnection 
Dim CommLastID As SqlCommand 
Dim DRLastID As SqlDataReader 

Dim strSQLID as String = "SELECT @@IDENTITY as UltimoID FROM EC_TESTEWEB" 

ConnLastID = New SqlConnection(ConfigurationSettings.AppSettings("DBStrConn")) 
CommLastID = New SqlCommand(strSQLID, ConnLastID) 
CommLastID.CommandType = CommandType.Text 

If ConnLastID.State <> ConnectionState.Open Then 
ConnLastID.Open() 
End If 

DRLastID = CommLastID.ExecuteReader 
DRLastID.Read() 

Dim UltID as String = DRLastID("UltimoID") 
me.lbl_conferma.Text = UltID 

DRLastID.Close() 
ConnLastID.Close()