Private Sub DataList2_ItemDeleting(ByVal source As Object, ByVal e As System.Web.UI.WebControls.ListViewDeleteEventArgs) 
Handles DataList2.ItemDeleting
                Dim conString = ConfigurationManager.ConnectionStrings("liceoConnectionString")
                Dim strConnString As String = conString.ConnectionString
                Using scope As New TransactionScope()
                    Using db As New SqlConnection(strConnString)
                        db.Open()
                        Using sqlcmd As New SqlCommand("Delcommento", db)
                            sqlcmd.CommandType = CommandType.StoredProcedure
                            'devi fare la conversione ma non sono capace in VB ;-))
                            sqlcmd.Parameters.AddWithValue("@id", SqlDbType.Int).Value = e.Keys["ProductID"] 
                            sqlcmd.ExecuteNonQuery()
                        End Using
                    End Using
                    scope.Complete()
                End Using
End Sub