Текст модуля такой:

Dim cn, cmd, Prm As Object
Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
Set Prm = CreateObject("ADODB.Parameter")

cn.ConnectionString = "Provider=MSDAORA.1;Password=INSLAB;User ID=INSLAB;Data Source=ORAMAIN;Persist Security Info=True;"
cn.Open

cmd.ActiveConnection = cn
cmd.CommandText = "USERINIT.CheckAndSetUserParams"
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Refresh
cmd.Parameters(1) = "хххх"
cmd.Parameters(2) = "ххххх"

cmd.Parameters.Append Prm

cmd.Execute


На выделенной строке выполнение прерывается с сообщением:
Run-time error '3001':

Аргументы имеют неверный тип, выходят за пределы
допустимого диапазона или вступают в конфликт друг с другом.

Причину найти пока не удалось ... хотя, вроде, много всего перекопал ...

Кто может подсказать работающий вариант текста?

http://www.sql.ru/forum/1273140/pytaus-obratitsya-k-pakedzhu-oracle-iz-pod-vba-access