AppendParameter and type mismatch value

[DevAccess]

Hello

I have below code

  With adoCmd
         adoStream.Type = adTypeBinary
         adoStream.Open
         adoStream.LoadFromFile strDir + file 'It fails if file is open
        .CommandText = "INSERT INTO VendorFiles VALUES (?,?,?)" ' Query
        .CommandType = adCmdText
        
        '---adding parameters
       adoCmd.Parameters.Append .CreateParameter("UniqueKey", adVarChar, adParamInput, Keyaudit)

Here I am getting type mismatch error

 adoCmd.Parameters.Append .CreateParameter("UniqueKey", adVarChar, adParamInput, Keyaudit)

I also tried

 adoCmd.Parameters.Append .CreateParameter("UniqueKey", adVarChar, adParamInput, 0,Keyaudit)

but it does not work, please advise.

 

[arnelgp]

What is the datatype of keyaudit. If numeric use adVarNumeric

 

[DevAccess]

What is the datatype of keyaudit. If numeric use adVarNumeric

it is string

 

[DevAccess]

it is string

Here is the attached error.

 

[DevAccess]

Here is the attached error.

adoCmd.Parameters.Append .CreateParameter("UniqueKey", adVarChar, adParamInput, 20, keyaudit)

above worked as I had defined size of data type to 20 in sql and that was cause of it.

Thanks