Application.SetOption  "Confirm Record Changes" , False
Application.SetOption  "Confirm Document Deletions" , False
Application.SetOption  "Confirm Action Queries" , False
и т.п.

Dim q As QueryDef, p As Parameter 
  Set q = CurrentDb.QueryDefs( "ИмяЗапрса" )  'как обычного запроса Select так и INSERT/DELETE/UPDATE'
  For Each p In q.Parameters 
    p.Value = Eval(p.Name) 
  Next 
  q.Execute 
  q.close: Set q=Nothing

Dim q As QueryDef, p As Parameter 
  Set q = CurrentDb.QueryDefs( "ИмяЗапрса" )  'как обычного запроса Select так и INSERT/DELETE/UPDATE'
  q.Parameters( "[Введите начальную дату:]" ).Value=Cdate(Ваше_значение_парметра)
'и т.д. пока не переберете все парметры'
  q.Execute 
  q.close: set q=Nothing

Dim q As QueryDef, p As Parameter 
  Set q = CurrentDb.QueryDefs( "ИмяЗапрса" )  'как обычного запроса Select так и INSERT/DELETE/UPDATE'
  For Each p In q.Parameters 
    debug.print p.Name 
  Next 
  q.close: set q=Nothing

PARAMETERS [Forms]![ИмяФормы]![ИмяКонтрола] Text, ... ;
...
WHERE ИмяТаблицы.ИмяПоля=[Forms]![ИмяФормы]![ИмяКонтрола] ... 
...

On Error Goto mis
...
  DoCmd.SetWarnings False
  DoCmd.RunSQL ...
  DoCmd.SetWarnings True
...
Exit Sub
  mis:
    DoCmd.SetWarnings True

Public Function Test()
On Error Goto Rollback_Label
  DBEngine( 0 ).BeginTrans
    CurrentDb.Execute  "Запрос1" , dbFailOnError
    CurrentDb.Execute  "Запрос2" , dbFailOnError
    CurrentDb.Execute  "Запрос3" , dbFailOnError
  DBEngine( 0 ).CommitTrans
  Exit Function
Rollback_Label:
  DBEngine( 0 ).Rollback
End Function

Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim p As ADODB.Parameter
  Set cnn = CurrentProject.Connection
    'или если не используете текущее соединение'
    'Set cnn = New adodb.Connection'
    'cnn.Open "Cтрока подключения по аналогии с CurrentProject.BaseConnectionString " '
  Set cmd = New ADODB.Command
  With cmd
    .ActiveConnection = cnn
    .CommandText = "ИмяПроцедуры"
    .CommandType = adCmdStoredProc
    .NamedParameters = True
      'начиная с ADO версии 2.6 (не точно, возможно в 2.5 тоже есть)'
      'без этого свойтсва все будет работать как хер знает что '
      'ADO будет заполнят коллекцию параметров не по имени, а по очереди'
    For Each p In .Parameters
      'при первом обращении к коллекеции параметров произойдет неявный вызов cmd.Parametrs.Refresh'
      'Ничего в этом страшного нет - просто по сети будут передаваться лишнии данные'
      'имена параметров равны именам контролов формы, только без @'
      'Имя контрола NameFIO, тогда в процедуре @NameFIO. @- убираем с помощью Replace'
      p.Value = Eval(Forms("ИмяФормы")(Replace(p.Name, "@", "",  1 ,  1 , vbTextCompare)))
    Next
    Set rs = .Execute(, , adExecuteNoRecords)
      'adExecuteNoRecords - можно и не указываь если в процедуре стоит Set NoCount ON'
      'или чтобы иметь возможность задать свойства rs (обновляемость например)'
      'Set rs = New ADODB.Recordset'
      'rs.CursorType = adOpenDynamic'
      'rs.Open cmd'
  End With
  'подчищаем за собой, соблюдая последовательность'
  Set cmd = Nothing
  rs.Close: Set rs = Nothing
  cnn.Close: Set cnn = Nothing
  'самый оптимальный способ - указывать параметры вручную'

Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim p As ADODB.Parameter
  Set cnn = CurrentProject.Connection
  Set cmd = New ADODB.Command
  With cmd
    .ActiveConnection = cnn
    .CommandText = "ИмяПроцедуры"
    .CommandType = adCmdStoredProc
    .NamedParameters = True
      'аналогично см. выше'
      'Cоздадим парметр nVarChar (500)'
    .Parameters.Append .CreateParameter("@имяПарматра1", adVarWChar, adParamInput,  500 , "Некая строка")
      'создадим параметр типа int (SQL) - Long (VBA)'
    .Parameters.Append .CreateParameter("@имяПараметра2", adInteger, adParamInput, , CLng( 111 ))
      'и т.д.'
    Set rs = .Execute(, , adExecuteNoRecords)
      'аналогично см. выше'
  End With
    'подчищаем за собой, соблюдая последовательность'
  Set cmd = Nothing
  rs.Close: Set rs = Nothing
  cnn.Close: Set cnn = Nothing

Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim p As ADODB.Parameter
  Set cnn = CurrentProject.Connection
    'аналогично см. выше'
  Set cmd = New ADODB.Command
  With cmd
  .ActiveConnection = cnn
  .CommandText = "ИмяПроцедуры"
  .CommandType = adCmdStoredProc
  For Each p In .Parameters
      'при первом обращении к коллекеции парметров произойдет неявный вызов cmd.Parametrs.Refresh'
      'Ничего в этом страшного нет -  просто по сети будут передаваться лишнии данные'
    Debug.Print p.Name
  Next
    'подчищаем за собой, соблюдая последовательность'
  Set cmd = Nothing
  cnn.Close: Set cnn = Nothing