Strore Procedure Microsoft SQL Server 2005

IF EXISTS (SELECT * FROM sys.tables WHERE object_id = object_id('Interi'))
  DROP TABLE Interi

CREATE TABLE Interi
(
  id int,
  descrizione varchar(15)
)

-- popolo la tabella
INSERT Interi
SELECT 1,'DATO UNO'

INSERT Interi
SELECT 2,'DATO DUE'

INSERT Interi
SELECT 5,'DATO TRE'

INSERT Interi
SELECT 10,'DATO QUATTRO'

CREATE FUNCTION dbo.ufn_TornaValore()
RETURNS int
AS
BEGIN

  DECLARE @MaxVal int

  SELECT @MaxVal = ISNULL(MAX(id),0) + 1 FROM Interi

  RETURN @MaxVal

END

SELECT dbo.ufn_TornaValore()

-- oppure

DECLARE @MioVal int

SELECT @MioVal = dbo.ufn_TornaValore()

CREATE PROCEDURE InserisciClick
AS
BEGIN

  -- inserisco ricavando il dato dalla funzione
  INSERT INTO Tabella (ContatoreClick)
  SELECT dbo.ufn_TornaValore()

END

                    Dim objConn As New SqlConnection("StringaDiConnessione")

                    ' apro la connessione
                    objConn.Open()

                    ' questo comando lancia la funzione per l'incremento del MAX valore
                    Dim objCmd As New SqlCommand("NomeFinzione", objConn)
                    objCmd.CommandType = CommandType.StoredProcedure

                    ' questo comando lancia la procedura per l'inserimento del valore MAX+1
                    Dim objCmd As New SqlCommand("NomeProcedura", objConn)
                    objCmd.CommandType = CommandType.StoredProcedure

                    ' chiudo la connessione (non mi serve più)
                    objConn.Close()

                Dim objConn As New SqlConnection("Stringa di connessione")

                ' apro la connessione
                objConn.Open()

                ' questo comando lancia la procedura per incrementare il contatore
                Dim objCmd As New SqlCommand("InserisciClick", objConn)
                objCmd.CommandType = CommandType.StoredProcedure

                ' chiudo la connessione (non mi serve più)
                objConn.Close()

  

objCmd.ExecuteNonQuery()