отсюда\r
\r
Dim MYConnection As New adodb.Connection\r
\r
\'пример подключения\r
MYConnection.Open "Provider=MSDASQL;DSN=LocalServer;SERVER=({local});UID=sa;PWD=;WSID={ИМЯ_компьютера};DATABASE={ИМЯ_БАЗЫ_ДАННЫХ};LANGUAGE=русский;QueryLogTime=Yes"\r
\'{УКАЗАННОЕ В ТАКИХ СКОБКАХ ЗАМЕНИТЬ НА СВОИ ЗНАЧЕНИЯ}\r
\r
Dim cmd As New adodb.Command\r
cmd.ActiveConnection = MYConnection\r
cmd.CommandText = "sp_daystatus" \'насколько мне известно параметры можно добавить прямо сюда после пробела, через зпт\r
cmd.CommandType = adCmdStoredProc\r
\'Возвращаемые параметры можно добавить так\r
cmd.Parameters.Append cmd.CreateParameter("@data", adInteger, adParamInputOutput)\r
cmd.Parameters(0) = MYintegervar\r
cmd.Execute\r
Myvar = cmd.Parameters(0)\r
Set cmd = Nothing