Private Function ImportInsertUpdate(sDoc As String, sDocDate As String, sIN As String, _
                                    sOUT As String, sDEB As String, sKRED As String, _
                                    sBAL As String, sFilePath As String, sFileText As String) As Long

    Dim cnn As ADODB.Connection, cmd As ADODB.Command

    Set cnn = New ADODB.Connection
    cnn.Open m_def_ConnectString

    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = cnn
        .CommandText =  "sp_BNPImport_Insert_Or_Update" 
        .CommandType = adCmdStoredProc
        .Parameters.Append .CreateParameter(, adTinyInt, , , iBase)
        .Parameters.Append .CreateParameter(, adVarChar, ,  50 , sDoc)
        .Parameters.Append .CreateParameter(, adDate, , , sDocDate)
        .Parameters.Append .CreateParameter(, adVarChar, ,  20 , sIN)
        .Parameters.Append .CreateParameter(, adVarChar, ,  20 , sOUT)
        .Parameters.Append .CreateParameter(, adVarChar, ,  20 , sDEB)
        .Parameters.Append .CreateParameter(, adVarChar, ,  20 , sKRED)
        .Parameters.Append .CreateParameter(, adVarChar, ,  20 , sBAL)
        .Parameters.Append .CreateParameter(, adChar, , FileLen(sFilePath), sFileText)
        .Parameters.Append .CreateParameter(, adInteger, adParamOutput)
        .Execute
    End With
    ImportInsertUpdate = cmd( 9 )
    Set cmd = Nothing

    cnn.Close
    Set cnn = Nothing

End Function