Insert i SQL-databas som inte vill funka

Tja tja...

Är det någon som ser något fel i denna koden??

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Public Function Insert_Course_Date(nCourse_id As Integer, dStart_date As Date, _
sPlace As String, sInstructor As String, _
sSystem_admin As String, sChecklist As String) As Variant

Dim cmd As ADODB.Command
Dim New_Course_Date_Id As Integer
Dim nCourse_Date_id As Integer

On Error GoTo ErrorHandler

' call the stored procedure
Set cmd = New ADODB.Command

With cmd
    .ActiveConnection = moConnection
    .CommandType = adCmdStoredProc
    .CommandText = "usp_Insert_Course_Date"

    .Parameters.Append cmd.CreateParameter("course_id", adInteger, \_
    adParamInput, , nCourse_id)

    .Parameters.Append cmd.CreateParameter("start_date", adDBDate, \_
    adParamInput, , dStart_date)

    .Parameters.Append cmd.CreateParameter("place", adVarChar, \_
    adParamInput, Len(sPlace) + 1, sPlace)

    .Parameters.Append cmd.CreateParameter("instructor", adVarChar, \_
    adParamInput, Len(sInstructor) + 1, sInstructor)

    .Parameters.Append cmd.CreateParameter("system_admin", adVarChar, \_
    adParamInput, Len(sSystem_admin) + 1, sSystem_admin)
    
    .Parameters.Append cmd.CreateParameter("checklist", adVarChar, \_
    adParamInput, Len(sChecklist) + 1, sChecklist)

    .Parameters.Append cmd.CreateParameter("course_date_id", adInteger, \_
    adParamOutput, , nCourse_Date_id)

    .Execute

    'Read the new id
    New_Course_Date_Id = .Parameters.Item("course_date_id").Value
End With

'Return the recordset
Insert_Course_Date = CVar(New_Course_Date_Id)

'Clean
Set cmd = Nothing

Exit Function

ErrorHandler:
'Clean
Set cmd = Nothing
Call HandleErrors("DOCCourse", "Insert_Course_Date", "Inparameters: " & _
nCourse_id & ", " & dStart_date & ", " & sPlace & ", " & sInstructor & ", " _
& sSystem_admin & ", " & sChecklist)

End Function

Inparametrarna kommer från ett ASP-gränssnitt och det jag vill göra är en insert i en SQL-databas. Får inga felmeddelanden men ingenting infogas i databasen...

------------------
Det finns alltid ett bättre sätt...