Господа профессионалы, укажите на возможную ошибку.
Необходимо из под MS Access 97 запустить хранимую процедуру с выходным параметром типа nchar, при попытке выполнения на строке cmd.Parameters.Append prm возвращается ошибка 3708 (Parameter object is improperly defined). Та же ситуация и при использовании входного параметра такого же типа.

Код функции:

Function test() As Integer
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm As ADODB.Parameter

cn.CommandTimeout = 100
cn.Provider = "sqloledb"
provStr = c2sSrvConnStr
cn.Open provStr
Set cmd.ActiveConnection = cn
cmd.CommandText = "test"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("str", adVarChar, adParamOutput)
cmd.Parameters.Append prm
cmd.Execute
cn.Close
End Function

Код процедуры:
CREATE PROCEDURE test
@str nchar(10) output
AS
set @str = 'Ответ'
return
GO

Ответ Genady к сожалению не помог при выполнении
Set param1 = cmd.CreateParameter("str", adVarChar, 20, adParamOutput)
выдается код ошибки 3001, сообщение типа (Arguments are of the wrong type, are out of acceptable range)

Спасибо за советы, Genady