Problema al ejecutar un Stored Procedure

[Maddaux]

Hola a todos.
Nuevamente vengo con un problema que me ha tenido un par de días estancado, se trata de que en mi aplicación, al ejecutar ciertas acciones automaticamente guarda un registro de ellas, para esto la siguiente funcion, le entrega unos parametros

Código:

Public Sub Auditoria2(sIDEmp As String, sidusr As String, sIDApp As String, sevento As String, sdescripcion As String, Optional ByVal sIDDocum$)
    'Registra en la tabla AUDITORIA la acción especificada
    On Error GoTo errAuditoria
    
    'Ejecuta el procedimiento almacenado
    Dim cnnADO As New ADODB.Connection
    Dim oComm As New ADODB.Command
    Dim sStrConn$
    Dim Abort As Boolean
    
    Dim mADO As New MovBD_MTS.ADOMTS
    
    Dim Cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    
    Call mADO.AbreConexionParaArchivos(cnnADO)
    
    Set Cmd = New ADODB.Command
    Cmd.ActiveConnection = cnnADO
    Cmd.CommandType = adCmdStoredProc
    Cmd.CommandText = "sp_actauditoria"
    
    
    'Cmd.Parameters.Append Cmd.CreateParameter("sTipoCliente", adVarChar, adParamInput, 30, sTipoCliente)
    Cmd.Parameters.Append Cmd.CreateParameter("sIDEmpresa", adVarChar, adParamInput, 30, sIDEmp)
    Cmd.Parameters.Append Cmd.CreateParameter("sIDUsuario", adVarChar, adParamInput, 30, sidusr)
    Cmd.Parameters.Append Cmd.CreateParameter("sIDAplicacion", adVarChar, adParamInput, 100, sIDApp)
    Cmd.Parameters.Append Cmd.CreateParameter("sEvento", adVarChar, adParamInput, 1, sevento)
    Cmd.Parameters.Append Cmd.CreateParameter("sDescripcion", adVarChar, adParamInput, 150, sdescripcion)
    Cmd.Parameters.Append Cmd.CreateParameter("sIDDocumento", adVarChar, adParamInput, 70, sIDDocum)
                
    Abort = False

    Set rs = Cmd.Execute(, , adAsyncExecute)
    Cmd.Cancel
    
    Do While CBool(Cmd.State And adStateExecuting)
        DoEvents
        If Abort Then
            Cmd.Cancel
        End If
    Loop
  
    
    Call mADO.CierraConexion(cnnADO)
    Set cnnADO = Nothing
    Set mADO = Nothing
    
    Set rs = Nothing
    Set Cmd = Nothing

y ejecuta el siguiente procedimiento almacenado:

Código:

USE [BaseDatos]
GO
/****** Object:  StoredProcedure [dbo].[sp_actauditoria]    Script Date: 02/22/2013 09:58:09 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROC [dbo].[sp_actauditoria]  @sIDEmpresa varchar(30), @sIDUsuario varchar(30), @sIDAplicacion varchar(30), @sEvento varchar(1), @sDescripcion varchar(150), @sIDDocumento varchar(70)
AS 

INSERT INTO Auditoria (IDEmpresa,IDUsuario,IDAplicacion,Fecha,Evento,Descripcion, IDDocumento)VALUES
(@sIDEmpresa, @sIDUsuario, @sIDAplicacion, GETDATE(), @sEvento, @sDescripcion, @sIDDocumento)

La cosa es, que en ningun momento me arroja un error y no guarda ningun dato en la BD
y hasta el momento no he logrado averiguar que conflicto se produce
si alguien tiene alguna idea o me puede orientar con que pasa con el codigo le agradecere la ayuda
gracias de antemano