VBA выполнить хранимую процедуру

Question

Я не могу выполнить хранимую процедуру.У меня есть этот код

Set conn = New ADODB.Connection
    conn.Open connectionString
    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = conn
        .CommandText = "schemaname.usp_proc"
        .CommandType = adCmdStoredProc
        .CommandTimeout = 300
        .Parameters.Append .CreateParameter("@user", adVarWChar, adParamInput, , user)
        .Execute
    End With

пользовательский параметр NVARCHAR(255)

Я получаю ошибку Type Mismatch

что здесь не так?