Visual Basic.NET - Como Inserto un Procedimiento Almacenado con un Campo Autonumerico de SQL 2008 a ASP.NET 2010 vb?

Mi Tabla en SQL Server 2008

Cod_Fue int Código de la Fuente de financiamiento

Des_Fue Varchar 255 Descripción de la Fuente de Financiamiento

Cod_Est Int Código de estado que utilizare para diferenciar entre Habilitado y Inhabilitado

Procedimiento que hice y me funciona pero SIN el Cod_Fue autonumerico

Create procedure InsertarFuente

@Cod_Fue int,
@Des_Fue varchar(50),
@Cod_Est int
as
Begin
insert into dbo.Fuente values(@Cod_Fue, @Des_Fue, @Cod_Est)
End

Mi Código en ASP.NET vb 2010

mports Microsoft
Imports System.Data
Imports System.Data.SqlClient
Public Class FuenteNuevo
Inherits System.Web.UI.Page

Dim Conexion As New SqlConnection("Data Source=(local);Initial Catalog=SICE;Integrated Security=True")
Protected Sub BtnAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAgregar.Click
TxtCod_Fue.Enabled = True
TxtDes_Fue.Enabled = True
TxtCod_Fue.Focus()
Dim cmd As New SqlCommand("InsertarFuente", Conexion)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.Add("Cod_Fue ", SqlDbType.Int, 20).Value = TxtCod_Fue.Text
.Add("Des_Fue ", SqlDbType.VarChar, 50).Value = TxtDes_Fue.Text
.Add("Cod_Est ", SqlDbType.Int, 20).Value = TxtCod_Est.Text
End With

Conexion.Open()
Try
Dim i As Integer = cmd.ExecuteNonQuery
MsgBox("Fuente ha Sido Insertada con exito")
LblMensaje.Text = "Fuente Ingresada"

Catch ex As Exception
LblMensaje.Text = " Datos Incorrectos"
Finally
Conexion.Close()
End Try
FuenteAgregar.OldValuesParameterFormatString = True
ASPxGridView1.DataBind()
End Sub
End Class