Мне необходимо из клиентской программы передать хранимой процедуре сразу порядка 10-ти параметров для добавление новой строки в таблицу. Насколько я знаю то мне нужно сделать следующее:

Set p1 = cmd.CreateParameter("@num_cont", adVarChar, adParamInput, 255)
p1.Value = List1.List(i)
cmd.Parameters.Append p1

и следовательно сделать это 10 раз.

Видел следующий рабочий код клиентской программы:

Private Sub NewCard()
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "m_GetNextOutBoxNum"
cmd.Parameters.Refresh
cmd.Parameters("@date") = lngDate
cmd.Execute , , adCmdStoredProc + adExecuteNoRecords
nNum.Value = cmd.Parameters("@id_next")
dDateIn.Value = Date
dDateOut.Value = Null
End Sub

Подскажите, пожалуйста как задавать значения параметрам вот так: cmd.Parameters("@date") = lngDate , а не как у меня.

спасибо.