Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Едрёныч
Как запустить ХП на вставку с параметрами?

Private Sub Кнопка18_Click() CurrentProject.Connection.Execute (" EXEC dbo.sp_обновление_цен_проекта @ном_проекта= " & Me.ном_проекта) End Sub

так не получается

Set cnn = CurrentProject.Connection     Set cmd = New adodb.Command     With cmd        .ActiveConnection = cnn         .CommandText = "sp_обновление_цен_проекта"         .CommandType = adCmdStoredProc         .Parameters.Append .CreateParameter("@ном_проекта", adInteger, adParamInput, 10, Me!ном_проекта)         .Execute , , adExecuteNoRecords    End With     Set cmd = Nothing     cnn.Close     Set cnn = Nothing

и так тоже