SQL - Caracteristica opcional no incorporada

Este es el codigo donde veo el error en la linea Cmd.Execute:
Private Sub cmdRegistrar_Click()
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim Par1, Par2, Par3, Par4, Par5, Par6 As ADODB.Parameter
Con.ConnectionString = "DSN=BASEPoliticas"
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = SP_AgregarNota
Set Par1 = Cmd.CreateParameter("Numero", adInteger, adParamInput, 4, CInt(Me.Nota))
Set Par2 = Cmd.CreateParameter("Anio", adChar, adParamInput, 2, Me.Anio)
Set Par3 = Cmd.CreateParameter("Fecha", adDate, adParamInput, 4, Me.Fecha)
Set Par4 = Cmd.CreateParameter("Destino", adChar, adParamInput, 50, Me.Destino)
Set Par5 = Cmd.CreateParameter("Referencia", adChar, adParamInput, 50, Me.Referencia)
Set Par6 = Cmd.CreateParameter("Autor", adChar, adParamInput, 7, Me.Autor)
Cmd.Parameters.Append Par1
Cmd.Parameters.Append Par2
Cmd.Parameters.Append Par3
Cmd.Parameters.Append Par4
Cmd.Parameters.Append Par5
Cmd.Parameters.Append Par6
Con.Open
Cmd.ActiveConnection = Con
Cmd.Execute
Con.Close
End Sub

Y este es el procedimiento almacenado
CREATE PROCEDURE dbo.SP_AgregarNota
@Numero int,
@Anio char(2),
@Fecha smalldatetime,
@Destino char(50),
@Autor char(7),
@Referencia char(50)
AS
INSERT NotasSalientes (Numero, Anio, Fecha, Destino, Referencia, Autor) VALUES (@Numero,@Anio,@Fecha,@Destino,@Referencia,@Autor)

No tengo idea de lo que pasa... son mis primeros pasos con SQL Server..
Ayuda por favor....