Клиенский скрипт тоже может обращаться к базе посредством ADO, например:
Set cmn =CreateObject("ADODB.Command")
With cmn
'name - пропускаем, type=adInteger, direction=adParamOutput, size, value
Set prm=.CreateParameter(,3,2)
.Parameters.Append prm

Set .ActiveConnection=MSODSC.Connection 'тут надо указать параметры соеденения_
у меня они известны т.к. это DAP
.CommandType = 4
.CommandText="SP_GetCurrentIdEmp"
end with
'запуск, сообщение об ошибке генерится в хп
On error Resume Next
cmn.Execute
If err.Number<> 0 then
MsgBox(err.Description)
err.Clear
Set cmn=Nothing
Exit sub
End if
On error Goto 0

ctlWhoAccepted.Value=prm
Set cmn=Nothing

'занести дату принятия
ctlAcceptDate.Value=Date

'сохранить изменения
MSODSC.CurrentSection.DataPage.Save