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

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':

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

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

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

Не помогло ...

а как References библиотеку ADO подключить?

guest_rusimport, Спасибо, это место прошёл.
Теперь проблема с передачей параметров, на строке:

cmd.Parameters.Refresh

вылетает ошибка
ORA-06550:
PLS-00306: ошибочно число или типы аргументов при обращении
к 'CHECKANDSETUSERPARAMS'

что это значит понять не могу, ведь по тексту сами параметры определяются ниже.

Refresh, Большое спасибо! Всё заработало ...