VB5 and Oracle 11G: Init parameter NLS_NUMERIC_CHARACTERS ignored

Question

I want to insert number values via the IHM into a table with a column of datatype NUMBER.

Now when I query the table there is '1234' instead of '12,34' inserted.

When I insert directely in the DB I get a correct result.

The program is coded in VB5 and database and Oracle 11g (11.0.2).

Someone could help me please?

The VB5 code:

        Set cmd1 = New ADODB.Command
        Set cmd1.ActiveConnection = dbConn1

        Set v_Enregistrement_insert = New ADODB.Recordset
        v_Enregistrement_insert.CursorLocation = adUseClient

        'Début de la transaction

        dbConn1.BeginTrans

        cmd1.CommandText = InsertParamMaint

        With cmd1
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 2, cb_CodMaint.Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, cb_RubPaye.Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(3).Text)
            .Parameters.Append .CreateParameter(, adDouble, adParamInput, 7, txtFields(4).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(5).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(6).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(7).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(8).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 7, txtFields(9).Text)
            .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 1, cb_Et.Text)

         End With

        'Enregistrement de la transaction

        Set v_Enregistrement_insert = cmd1.Execute()

        dbConn1.CommitTrans

        bAjout = False
        datPrimaryRS.Enabled = True

Else

  datPrimaryRS.UpdateRecord

  End If

  datPrimaryRS.Refresh