Try
            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("InsUtenti", db)
                        sqlcmd.CommandType = CommandType.StoredProcedure
                        sqlcmd.Parameters.AddWithValue("@Docente", SqlDbType.VarChar).Value = Me.TextBox4.Text
                        sqlcmd.Parameters.AddWithValue("@nomeutente", SqlDbType.VarChar).Value = Me.TextBox1.Text
                        sqlcmd.Parameters.AddWithValue("@password", SqlDbType.VarChar).Value = Me.TextBox2.Text
                        sqlcmd.Parameters.AddWithValue("@email", SqlDbType.VarChar).Value = Me.TextBox3.Text
                        sqlcmd.ExecuteNonQuery()
                    End Using
                End Using
                scope.Complete()
            End Using
        Catch ex As TransactionAbortedException
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        Catch ex As SqlException
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        Catch ex As Exception
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        End Try