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...

Om det är någon som är duktig på Visual Basic som tittar på koden och som tycker att det ser ut som om den är korrekt. Skriv gärna det så att jag kan utesluta den felkällan.

Jag är helt borta...
Vidareutvecklar ett befintligt system och har bara plockat från tidigare fungerande kod.

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

Tack så jättemycket för hjälpen alla VB-gurus....(hmmmm)

Jag kan meddela att jag hittade problemet och det var en inställning i SQL-databasen.

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

Varsågod. ;)

Jag måste bara passa på att även i denna tråd tipsa om SQL-forumet i webbrelaterat, där det finns en del kompetent folk som kanske hade kunnat svara på din fråga.

Till nästa gång alltså. :)

Mvh,

------------------
All your base are belong to me.